in collaborazione con 

GRUPPO 

EDITORIALE 

JACKSON 
LINGUAGGI: 


Un pubblicazione della 


J 


la rivista per gli utenti 


è 


|  SUPERSINC 


IL PASCAL 
CORSO DI 
LINGUAGGIO 


MICROPOLI, 
GIOCO DI SOCIETÀ 


“IL” 


MACCHINA 


BRISCOLA PER ZX81 
COME OTTENERE 


VIDEATE 
A 42 COLONNE 


ZX Spectrum + 


chi acquista lo ZX Spectrum + ha la 

gradita sorpresa ditrovare la ricca dotazione, 
COMPRESA NEL PREZZO , costituita da: 

1 cassetta in ITALIANO di apprendimento 

1 manuale GUIDA PER L'UTENTE in ITALIANO 
1 libro in ITALIANO sul MICRODRIVE 
e la preziosa SUPERGARANZIA 


GRAPHICS. DELETE £ 2 | 
IL LI 
ZX Spectrum+ 
Guida per ; PARA ttt 
l'utente z 


f ZX Spectrum+ 
Cassetta Di Guida 
Per L'utente 


anart 


REBIT 


COMPUTER 


DISTRIBUTORE ESCLUSIVO 


ESD: a eRii 


Aule 


POINT 


si 33° 3; 


DONNE E COMPUTER 
a cura di Pietro Dell’Orco 


WRITE 


LA POSTA DEI LETTORI 


11 


SPECTRUM SHOPPING 2 
trad. e adatt. 


di Marcello Spero 
Terza parte 


19 LA CULTURA a INFORMATICA 


PASCAL: 
IL “NON GOTO” 
di Marcello Spero 


25 REM:HW 


ESTENDIAMO LE 
POSSIBILITA DELLA 
NOSTRA INTERFACCIA 
CON UN CONVERTITORE 
ANALOGICO/DIGITALE 
di Marcello Spero 
Seconda parte 


verbi 


J. soft s.r.l. 

DIREZIONE, REDAZIONE, 
AMMINISTRAZIONE 

Viale Restelli, 5 

20124 MILANO 

Tel. (02) 68.88.228-68.37.97 
68.80.841/2/3 


Ivana Rossi 
Raffaella Toffolatti 


DIRETTORE RESPONSABILE: 


Tel. 02/64.80.397 
Pietro Dell’Orco 


20161 MILANO 


COORDINAMENTO TECNICO: 


Riccardo Paolillo CONTABILITÀ: 


Giulia Pedrazzini 
REDAZIONE: Flavia Bonaiti 
Lucio Bragagnolo 


Marcello Spero 


GRAFICA E IMPAGINAZIONE: 
Margherita La Noce 


FOTOCOMPOSIZIONE: 
Graphotek - Via Astesani, 16 


L’ASSEMBLY 
ASSIEME 

di Marcello Spero 
Seconda parte 


3 SMART BOY 
di Nino Amico 
e Marcello Spero 


4 BRISCOLA 
di Giovanni Tisi 


4 L’ISOLA DEL FARO 
di Federico Frezza 


5 ASTEROIDI 
di P. Steer 
trad. e adatt. 
di Guido Bertolotti 


PUBBLICITA 
Concessionaria per l’Italia e 
l'Estero J. Advertising s.r.l. 
Viale Restelli, 5 

20124 Milano 


Tel. (02) 68.82.895-68.80.606-68.87.233 


Tlx. 316213 REINA I 


Concessionaria esclusivo per la 
DIFFUSIONE in Italia e Estero: 
SODIP - Via Zuretti, 25 

20125 MILANO 


Spedizione in abbonamento 
postale Gruppo lII/70 

Prezzo della rivista L. 7.500 
Numero arretrato L. 15.000 


HANNO COLLABORATO A 
QUESTO NUMERO 


Guido Bertolotti 
Alessandro Di Cresce 
Federico Frezza 
Giovanni Malinverni 
Giovanni Tisi 


AUTORIZZAZIONE ALLA 
PUBBLICAZIONE: 
Tribunale di Milano n° 199 
del 14.04.1984 


STAMPA: 
Litografia del Sole 
Albairate (MI) 


Abbonamento annuo: L. 82.500 

(11 numeri con cassetta) L. 38.500 
(11 numeri senza cassetta) per l'estero: 
L. 110.000 (11 numeri con cassetta) 
L. 50.000 (11 numeri senza cassetta) 


i versamenti devono essere indirizzati a: 
J. soft s.r.l, 


Viale Restelli, 5 
20124 MILANO 


Anno 2 - n° 5 - Maggio 1985 


MICROPOLI 
di Giovanni 
Malinverni 


6 42 COLONNE 
di Alessandro Di 
Cresce 


ESE 


RECENSIONI LIBRI 
di Lucio Bragagnolo 


7754 


I CLUB SINCLAIR 


PICCOLI ANNUNCI 


mediante emissione di assegno 
bancario, cartolina, vaglia o 
utilizzando il c/c postale 

n. 19445204. 

Per i cambi di indirizzo indicare, 
oltre al nuovo, anche l'indirizzo 
precedente ed allegare alla 
comunicazione l'importo di L. 500, 
anche in francobolli 

© TUTTI I DIRITTI DI 
RIPRODUZIONE O TRADUZIONE 
DEGLI ARTICOLI PUBBLICATI 
SONO RISERVATI 


GLI ARTICOLI TRADOTTI SONO 
TRATTI DALLA RIVISTA 

ZX COMPUTING - ARGUS 
SPECIALIST 

PUBLICATION L.T.D. 

1 GOLDEN SQUARE LONDON 
W 1R3AB 


Rivista associata 
all'Unione 
Stampa 
Periodica 
Italiana 


SUPERSINC® 5/85 - 3 


La biblioteca 


firmata 


“tan Grahem 


GIOCHI CON 
IL COMPUTER 


Il libro, parla di giochi con il compu- 
ter, una volta tanto visti dalla parte 
del computer, e non dell'utente. 

In particolare spiega, in modo sem- 
plice ma preciso, come fa il compu- 
ter a giocare, come fa a produrre im- 
magini e suoni durante il gioco e co- 
me fa (in genere!) a vincere. 

Cod. 006D Pag. 48 Lire 9.000 


Brian Reffin Smith 


IMPARIAMO 
A PROGRAMMARE 


Il libro fornisce le conoscenze essen- 
ziali per incominciare a programmare 
in BASIC su di un personal com- 
puter. 

Cod. 018D Pag. 48 Lire 9.000 


PRIMI PASSI 
IN BASIC 


Il libro propone l'apprendimento del 
linguaggio BASIC tramite lo studio e 
l'esame dettagliato di programmi già 
scritti. 

Cod. 007D Pag. 48 Lire 9.000 


Tony Potter - Ivor Guild 
I ROBOT 


Dopo una rapida panoramica su che 
cosa può fare un robot, il libro pre- 
senta una serie di robot con funzioni 
particolari: i robot a braccio, i robot 
operai, i robot nello spazio, etc. 

Affronta poi il problema di come un 
robot può essere programmato e 
controllato da un computer, e di co- 
me praticamente si realizza un robot. 


Cod. 0030 Pag. 48 Lire 9.000 


Judy Tatchell - Bill Bennett 


CONOSCERE 
IL PERSONAL 


Il libro spiega che cosa si può fare 
con un personal computer, come si 
usa e come funziona. 

Cod. 008D Pag. 48 Lire 9.000 


Lynn Miring - lan Graham 


RIVOLUZIONE 
INFORMATICA 


Il volume è rivolto in particolare ai 
bambini, ma anche a tutti coloro 
che, presto o tardi, verranno coinvol- 
ti dalle nuove tecniche informatiche 
più come utenti che come operatori. 
Cod. 004D Pag. 48 Lire 9.000 


per ragazzi 


G 
iocare con i personal compu, 
‘er 


ritagliare (o fotocopiare) e spedire in busta chiusa a: I 
GRUPPO EDITORIALE JACKSON - Divisione Libri - Via Rosellini, 12 - 20124 Milano. 


CEDOLA DI COMMISSIONE LIBRARIA 
VOGLIATE SPEDIRMI 


n° copie 


dtare lari 


Totale 


Pagherò contrassegno al postino il prezzo indicato più L. 3.000 per contributo ì 
fisso spese di spedizione. 


Condizioni di pagamento con esenzione del contributo spese di spedizione: 


O Allego assegno della Banca O Allego fotocopia del versamento i 
5 su c/c n. 11666203 a voi intestato E 


DI Allego fotocopia di versamento 0 
n° - su vaglia postale a voi intestato 


Nome = 


Cognome 


Partita I.V.A. 


l computer ha affascinato, fin da principio, solo gli uomini. Sono infatti 
assai poche le esponenti del gentil sesso che si sono avvicinate all’avveni- 
ristico “accrocchio elettronico”. Anche tra i lettori e gli abbonati alle nostre 
riviste si contano pochissime fanciulle. Nonostante l’intraprendenza femmi- 
nile abbia raggiunto da tempo quella che una volta era propria degli 
uomini, resta decisamente esiguo il numero di coloro che si interessano di 
informatica. Appare strano che il calcolatore, con la sua poliedricità, non 
abbia coinvolto positivamente le donne, alle quali normalmente piacciono 
le cose che possono assumere funzioni o ruoli diversi. 
Forse è la diffusa credenza che il computer sia una fredda macchina, che 
necessita, per il corretto funzionamento, di studi complicati o di chissà 
quali alchimie: forse è considerato, a sproposito, un attrezzo riservato a 
pochi eletti. 
Qualunque sia il motivo, resta il dato di fatto che la maggior parte delle 
donne non ha fatto proprio il dilagante fenomeno che sta rivoluzionando 
il modo di imparare, di divertirsi e di lavorare insito nella diffusione del 
personal computer. 
Sta dunque a noi convincere le reticenti donzelle a provare almeno una 
volta il calcolatore, nella speranza che nasca quella curiosità che di solito 
si trasforma in passione più o meno accesa. 
Ragazze, fidanzate, mogli, madri, zie e nonne, nessuna deve sfuggire! 
Obblighiamole davanti al video, mostriamo loro quanto sia semplice gioca- 
re o scrivere con il computer: se dotate di un minimo di sensibilità non 
potranno fare a meno di apprezzare i vantaggi offerti dall’uso della macchi- 
na infernale; i casi, come sempre, possono essere due: amore a prima 
vista oppure odio eterno. 
Vale comunque la pena di tentare e, se la cosa si risolve positivamente, 
avrete trovato la tanto attesa giustificazione alle ore di sonno, sempre 
rinfacciate, perse in compagnia del fedele personal. 
Pietro Dell’Orco 
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Per collaborare a SUPERSINC 


La rivista è interessata ad articoli e programmi riguardanti la linea Sinclair, di interesse 
generale, chiari ed esaurienti. Vi proponiamo una piccola “guida”, che ha particolarmente lo 
scopo di rendere più accurata la stesura dei vostri manoscritti: seguendo i nostri consigli si 
accresceranno le probabilità che le vostre buone idee e i vostri programmi vengano pubblicati. 


l’angolo superiore sinistro della prima pagina 

dovrà contenere: nome, cognome, indirizzo, 
numero telefonico, codice fiscale, data di spedi- 
zione, luogo e data di nascita. 

l'angolo superiore destro della prima pagina 

dovrà contenere la marca e il tipo di compu- 
ter al quale il lavoro si riferisce, unitamente ad 
eventuali espansioni di memoria o periferiche ri- 
chieste. 
3: titolo dell’articolo, sottolineato, dovrà ini- 

ziare a circa due terzi in altezza della prima 
pagina. 
4° pagine seguenti potranno essere battute 

normalmente, con la condizione che l’angolo 
superiore destro contenga un’abbreviazione del 
titolo e del cognome, unitamente al numero di 
pagina. Per esempio, Horance Goes.../ 
Brambilla /2. 

il testo dell’articolo dovrà essere battuto a 

macchina con interlinea di uno spazio e mez- 
zo, massimo due spazi; un margine di almeno un 
centimetro dovrà essere lasciato su entrambi i 
lati dello scritto. 

dovranno essere usati fogli in formato UNI 

A4 (cm. 21 x 29,7) e il testo, scritto in carat- 
teri maiuscoli e minuscoli, dovrà occupare una 
sola facciata del foglio. 

nel caso il testo comprenda più fogli, questi 

dovranno essere uniti con un fermaglio o con 
un punto metallico aperto. 

avendo intenzione di spedire più di un artico- 

lo, questi dovranno essere inviati separata- 
mente insieme alla rispettiva copia su supporto 
magnetico. 

programmi brevi (meno di 20 linee) potranno 

essere inseriti nel testo, mentre programmi 
più lunghi dovranno essere listati separatamente. 
È ESSENZIALE per noi disporre di una copia 
del programma registrata più volte su supporto 
magnetico, su entrambi i lati dello stesso. E prefe- 
ribile usare nastri di buona qualità e di lunghezza 
non eccessiva; la cassetta o il disco dovranno 
essere etichettati con il nome dell’autore, il titolo 
dell’articolo, il computer interessato e soprat 
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tutto le eventuali espansioni richieste. Come sug- 
gerimenti di programmazione si consiglia di usa- 
re, per esigenze di stampa listati, le istruzioni 
INK, PAPER, INVERSE, piuttosto che scrivere 
direttamente in INVERSE VIDEO. Un rapido 
controllo dei programmi per operare queste so- 
stituzioni sarà da noi estremamente apprezza- 
to. 
1 per maggior chiarezza, all’interno dell’ar- 
ticolo è conveniente usare caratteri maiu- 
scoli riferendosi a istruzioni BASIC (esempio RE- 
TURN, LIST, RND, PRINT ecc.). Se si desidera 
evidenziare una parola, è preferibile sottolinearla 
piuttosto che scriverla in carattere maiuscolo. 
1 gli articoli ed i programmi potranno avere 
qualsiasi lunghezza: da una routine di una 
sola linea fino a programmi molto complessi. 
1 Via includere diapositive, queste do- 
vranno avere formato 24x36, o 6x6. 
1 DIS prenderemo in considerazione artico- 
li che siano stati sottoposti ad altre case 
editrici. 
1 4 materiale non pubblicato non verrà re- 
stituito. 
1 5! compenso per la collaborazione presta- 
ta sarà commisurato alla complessità e 
all'interesse del testo e/o del programma (da un 
minimo di L. 50.000 a un massimo di L. 
300.000). Il pagamento verrà effettuato in caso 
di pubblicazione del lavoro. 


Inviate idee e programmi a: 
SUPERSINC 

Viale Restelli, 5 

20124 Milano 


e saremo lietissimi di pubblicare i contri- 
buti migliori. 
La Redazione 


1% 


Capoluoghi d’Italia 
Spettabile redazione, 
vi scrivo per segnalare un errore nella - 


realizzazione del programma “Città 

d'Italia”, apparso sul numero 1 della rivi- 

sta. 

Viene indicata come capoluogo di regio- 

ne per il Friuli Venezia Giulia la città di 

Udine, mentre in realtà il capoluogo è 

Trieste. 

Per rimediare alla “svista geopolitica” del 

realizzatore del programma, che comun- 

que nulla toglie alla sua validità come 

supporto didattico, bisogna eseguire 

queste piccole modifiche: 

— alla linea 6383 assegnare alla variabile 

“qu” il valore 2 (LET qu=2); 

— alla linea 6412 assegnare alla variabile 

“qu” il valore 1 (LET qu=1). 
Gianfranco Lizzul — Trieste 


R. In effetti in fase di collaudo non ab- 
biamo avuto il tempo di verificare la 
correttezza dei dati relativi a tutte le 
città. Comunque ringraziamo per la se- 
gnalazione, che giriamo a tutti i lettori 
interessati. Sempre a questo proposito, 
abbiamo scoperto un altro bug presente 
nel programma: la città di Trento non 
viene selezionata. Per ovviare all’incon- 
veniente editate la linea 6348, facendo- 
la diventare 6384; cancellate la vecchia 
linea 6348; editate la linea 6383, ag- 
giungendo RETURN alla fine; registrate 
nuovamente il programma, seguendo le 
istruzioni date sulla rivista. Un altro si- 
stema è quello di cancellare la linea 
6348 riscrivendola come 6384. 


Le tastiere del QL 

I programmi scritti su un QL con tastiera 
italiana girano anche su una versione con 
tastiera tedesca QWRTZ? Esistono pro- 
grammi emulatori che consentono di far 
girare sul QL programmi per lo Spec- 
trum? 

Claudio Conega - Hannover 


(Germania) 


R. A tutt'oggi (si tenga presente che 
READ & WRITE viene preparata con 
un mese circa di anticipo) il QL con 
tastiera italiana non c’è ancora. Alia 
REBIT ci è stata assicurata la compati- 
bilità totale dei programmi scritti in Su- 
perBASIC, mentre per quanto riguarda 
il software in 1/m non abbiamo avuto 
una risposta precisa. Per la seconda do- 
manda non ci risulta che esista uno 
“Spectrum emulator”, e in ogni caso 
pensiamo (sperando di essere smentiti) 
che la compatibilità verso l’alto tra ZX 
e QL sia sostanzialmente limitata al BA- 
SIC. 


Spectrum Graphics 

Pubblichiamo di seguito un mini pro- 
gramma pervenutoci da parte di Ser- 
gio Di Giacomo, di Roma: 


] REM ®© Sergio Di Giacomo 
2 REM - 1984 - 
10 REM ----- "Grafica"----- 
20 BORDER 0: PAPER 0 
30 INK INT 1+(RND*8) 
40 BRIGHT INT (RND*2) 
50 OVER INT (RND*2) 
60 CLS : PAPER 0 
70 FOR n=1 TO 200 
80 LET x=INT (RND*85) 
90 LET y=INT (RND*85) 
100 GO SUB 200 
110 DRAW x,y: GO SUB 200 
120 DRAW -x,-y: GO SUB 200 
130 DRAW x,-y: GO SUB 200 
140 DRAW -x,y 
150 NEXT n: RUN 
200 PLOT 130,90: RETURN 


Il tremolio dello ZX81 

Il programmino sotto riportato è costitui- 
to da poche linee BASIC; può essere 
inserito facilmente in qualunque listato, 
e serve ad ottenere un tremolio generale 


dello schermo, consentendo di simulare 
un atterraggio difettoso, un’esplosione o 
mille altri effetti. 
Il programma utilizza la variabile di siste- 
ma MARGIN, che indica quante linee vi 
sono sopra o sotto il disegno che appare 
sul video. Modificandola, l’immagine vi- 
deo si alza e abbassa in rapida successio- 
ne. 
Ad esempio, chi possiede il simulatore 
di volo Psion può provare a cambiare 
l’ultima routine del programma, dando 
la sensazione che l’aereo sia davvero 
precipitato. 
La routine è totalmente priva di effetti 
secondari. 
Stefano Bighini 
Sesto: San Giovanni (MI) 


Riceviamo e pubblichiamo: 


10 FOR A=1_TO “1 - 
SO PRINT Miei ii 


Sa NEXT A 


50 FOR I=l TO 54 
50 POKE 165424,I 
20 NEXT I 


Spectrum + tastiera = ? 
Gentile redazione, 
ho letto di un nuovo modello di Spec- 
trum, chiamato Spectrum Plus. Vorrei 
sapere se è possibile sostituire la mia vec- 
chia tastiera con quella del Plus. Se la 
risposta è affermativa, come dovrei fare? 
Dove potrei richiedere la nuova tastiera? 
Quanto verrebbe a costare? 
Marcello Sisti 
Pieve di Cento (BO) 


R. La Sinclair ha già messo in vendita 
un kit di espansione, per la sostituzione 
della tastiera Spectrum con quella del 
Plus, contenente il “guscio” di quest’ul- 
timo — in cui alloggerà la scheda dello 
Spectrum da convertire —, il nuovo ma- 
nuale, la ugualmente nuova cassetta in- 
troduttiva e, per chi ha uno Spectrum 
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PERIELIO MIRI DIRI TORI 


16K, un’espansione di memoria. Rite- 
niamo che la nuova tastiera sia disponi- 
bile attraverso i consueti canali distribu- 
tivi, senza particolari problemi. Quanto 
al prezzo, questo è di 99000 lire, che 
diventano 149000, se si richiede anche 
l'espansione da 32K. 


Un salto indietro 
Sono un vostro abbonato in difficoltà; da 
più mesi sto cercando in tutti i modi di 
far girare il programma “Attacco nuclea- 
re” pubblicato sul numero 2. Ho control- 
lato il listato su cassetta con quello della 
rivista, ma non ho trovato differenze. 
Ho allora trasferito su una cassetta nuo- 
va tutto il programma; lo stesso parte 
regolarmente e tutto funziona senza pro- 
blemi. Ho anche verificato, con GO TO 
6198, la bellezza dell’effetto che si ottie- 
ne quando un missile colpisce una città. 
Non si riesce però a giocare: i miei missili 
partono in continuazione dalla base fino 
ad esaurimento e non riesco assoluta- 
mente a spostare il mirino. Ho provato 
a seguire le vostre istruzioni per la modi- 
fica del listato, e la linea 9200 mi mostra 
il numero 255: non penso quindi di do- 
ver modificare il listato. Dato che gli altri 
programmi vengono caricati regolarmen- 
te, mi sento di escludere la possibilità di 
danneggiamento fisico del nastro. Mi 
spiace che un programma così bello non 
riesca a partire, ma ho fiducia nel vostro 
aiuto, e nel ringraziarvi anticipatamente 
vi saluto cordialmente. 

Mario De Beni —- Torino 


R. Anche se si tratta di un programma 
pubblicato da moltissimo tempo, ritor- 
niamo sull’argomento, sia per risponde- 
re alla sua lettera che per rimediare ad 
alcune imprecisioni comparse sull’arti- 
colo relativo ad “Attacco nucleare”. 
Secondo noi il suo Spectrum, a dispetto 
del risultato del test seguito tramite la 
linea 9200, è una Issue 3. Non si spie- 
gherebbe altrimenti la totale assenza di 
risposta alla pressione dei vari tasti di 
movimento. Deve evidentemente trat- 
tarsi di una Issue 3 “ballerina”, che for- 
nisce valori casuali, saltando da 255 a 
191 (per verificarlo esegua il test senza 
toccare il computer per un’oretta, con- 
trollando se il surriscaldamento dei cir- 
cuiti provoca variazioni di valore). Sup- 
posto quindi che il listato vada modifica- 
to, ecco come fare: innanzitutto si igno- 
rino completamente le spiegazioni del- 
l’articolo — che non sono del tutto sba- 
gliate, ma imprecise — e si proceda co- 
me segue: 

— sottrarre 64 a tutti i valori delle IN 
presenti nel programma (esempio: IN 
65278 = 255 deve diventare IN 65278 
= 191); 

— dove vengono sommate più IN (preci- 
samente alle linee 135 e 990), il valore 
1020 deve diventare, in ambedue i casi, 
764. 

Una volta effettuate queste modifiche 
eventuali problemi saranno da attribuir- 
si ai “capricci” del suo Spectrum che si 
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possono limitare cercando di ridurre il 
surriscaldamento della macchina (appli- 
cando uno stabilizzatore di tensione, 
praticando fori di areazione sul fondo 
dello Spectrum o lavorando vicino a un 
ventilatore...: le soluzioni possibili sono 
numerosissime), in quanto il program- 
ma è di per sé privo di bug, tanto che 
lo abbiamo giocato su entrambe le Is- 
sue, senza tuttavia andare oltre i 30000 
punti. Speriamo con ciò di avere defini- 
tivamente risolto i problemi di quanti ci 
hanno scritto in proposito. 


Un paio di calci a Jet Set Willy 
Caro SUPERSINC, 
sono un accanito sinclairista, che non 
credeva esistesse il calcio per lo Spec- 
trum, a causa del suo BASIC troppo len- 
to (questi giochi sono tutti realizzati in 
linguaggio macchina! N.d.r.). 
Pochi giorni fa sono tornati dall’Inghilter- 
ra mio padre e mio fratello, portandomi 
l’ultima cassetta della Artic: il campiona- 
to del mondo di calcio. I partecipanti 
possono essere da uno a nove, rappre- 
sentati a loro scelta da una delle 40 squa- 
dre in gara. 
Questa cassetta, che gira solo sullo Spec- 
trum 48K, non ha una grafica ecceziona- 
le e neppure una grafica particolarmente 
elevata, ma è ugualmente bellissima. 
Il gioco si articola su varie partite elimina- 
torie, e ovviamente bisogna vincere sem- 
pre, se si vuole arrivare in finale. Devo 
dire che non è facile vincere le prime 
partite, ma col tempo si migliora sempre 
di più. 
Sono a disposizione di chiunque voglia 
avere maggiori informazioni su questa 
cassetta. 
Se ti capitasse tra le mani anche la solu- 
zione di “Jet Set Willy”, potresti anche 
rispondere alla mia precedente lettera. 
Ti saluto caldamente, sperando di vede- 
re pubblicate le mie lettere e realizzare 
il mio sogno di vedere lo stanco Willy 
andare a letto. 
Pietro Maccari 
Colle Val d’Elsa (SI) 


R. Caro Pietro, 

ti assicuriamo che la mancata risposta 
alla tua precedente lettera non è dovuta 
a una nostra mancanza, ma probabil- 
mente a qualche disguido postale. 

A parte questo, ti ringraziamo a nome 
di tutti i lettori per la tua segnalazione. 
A integrazione di quanto ci dici aggiun- 
giamo che il nome del gioco è “World 
Cup”. Un trucchetto abbastanza empiri- 
co, che abbiamo scoperto per realizzare 
valanghe di gol — si fa per dire —, è 
questo: una volta impossessatisi della 
palla bisogna dirigere il giocatore verso 
la porta avversaria, seguendo una tra- 
iettoria a zig-zag, passando continua- 
mente dalla parte alta a quella bassa 
dello schermo; ciò permetterà di evitare 
ogni contrasto con i difensori dell’altra 
squadra e battere il portiere avversario 
nella maggior parte dei casi. 


In più, un’altra notizia: è uscito recente- 
mente un secondo gioco del calcio per 
Spectrum. Si chiama “Match Day”, ed 
è prodotto dalla Ocean. Abbiamo potu- 
to vederlo in funzione; molto probabil- 
mente si tratta di una fedele trascrizio- 
ne per lo Spectrum del calcio Commo- 
dore. La grafica è nettamente migliore 
di quella di “World Cup”, il gioco è mol- 
to più “naturale”, permettendo colpi di 
testa, calci d’angolo, vere e proprie pa- 
rate del portiere e così via. 

Venendo a “Jet Set Willy”, non sappia- 
mo cosa tu intenda per soluzioni. Abbia- 
mo già pubblicato, nel numero 6, un 
piccolo programmino che semplifica 
parte del difficile compito di mandare il 
povero Willy a riposare. Ma, a parte 
questo, lo scopo del gioco rimane quello 
di raccogliere tutti gli 83 oggetti sparsi 
nelle 60 stanze della villa. Già che ci 
siamo, ti diamo un altro consiglio: porta 
il tuo omino nella stanza denominata 
“First landing” e digita senza sbagliare 
la parola WRITETYPER. A questo pun- 
to esistono numerose combinazioni di 
tasti, tutte comprendenti il tasto 9, che 
permetteranno l’accesso immediato a 
ogni stanza, proprio come in “Manic Mi- 
ner”. Una raccomandazione: prima di 
digitare una combinazione porta Willy 
il più in basso possibile, in quanto una 
sua eventuale apparizione a mezz'aria 
(con conseguente caduta) in una stanza 
fa entrare il programma in un circolo 
chiuso, che si conclude soltando quando 
terminano le vite a disposizione. 


Il mistero di “Alchemist” 

Da alcuni mesi ho acquistato il gioco “Al- 
chemist” della Imagine, ma ancora non 
ho capito lo scopo del gioco né la proce- 
dura per arrivare alla fine. Gradirei, co- 
me avete già fatto per “Atic Atac”, istru- 
zioni in merito. 


Fabio Zucchelli — Leffe (BG) 


R. Caro Fabio, 

i nostri giocatori folli sono già al lavoro 
e fra un po’ di tempo dovresti poter 
vedere quello che desideri. Nel frattem- 
po vediamo di dirti qualcosa di interes- 
sante. Innanzitutto lo scopo del gioco è 
quello di recuperare all’interno di un 
sotterraneo i quattro pezzi di un poten- 
te incantesimo, che permetterà di di- 
struggere il perfido Warlock, il malvagio 
di turno. Tre dei quattro frammenti so- 
no recuperabili prendendo certi oggetti 
(dirti quali sono è un po’ troppo, per 
ora...) e portandoli nel santuario, più 
precisamente depositandoli in un cofa- 
no presente nel locale. Anche per il 
quarto frammento si segue la stessa 
procedura, solo che bisogna aver com- 
piuto in precedenza sull’oggetto appro- 
priato una certa operazione (che per 
ora ti lasciamo il gusto di scoprire). 
Completato il super incantesimo biso- 
gnerà trovare Warlock in persona e di- 
struggerlo, naturalmente lanciando l’in- 
cantesimo in questione. 


NON AVRAI ALTRA STAMPANTE 


Seikosha ti invita nel meraviglioso mondo delle sue 
stampanti. 

Un mondo fatto di progresso, di elevatissima qualità, 
velocità e silenziosità di stampa. 

Seikosha oggi ti propone la più vasta gamma di 
stampanti nate per esaltare le prestazioni di ogni tipo 
di computer. 

All'altezza di ogni esigenza, anche della tua che usi i 
Personal Computer Sinclair. 

Piccola e compatta, dalle prestazioni generose, GP 50 S 
con 35 caratteri al secondo e 32 colonne, è la 
stampante ideale per risolvere con soddisfazione le 
prime esigenze di stampa di chi usa lo ZX Spectrum. 
Se possiedi anche l'interfaccia 1, niente di meglio della 
stampante GP 500 S con 50 caratteri al secondo e 80 


colonne che ti consente utilizzi anche di tipo gestionale. 
Se lavori con un computer Sinclair QL, non puoi 
rinunciare agli 80 caratteri al secondo e 80 colonne 
anche Near Letter Quality a 20 caratteri per secondo 
del modello SP 800 IQL. 

Se poi le tue esigenze sono altamente professionali, la 
stampante BP 5420 A con 136 colonne, 420 caratteri 
al secondo, anche Near Letter Quality a 104 caratteri 
al secondo, rende ancor più grande il tuo Sinclair QL. 
Seikosha e Sinclair: una coppia che và d'amore e 
d'accordo. 


SEIKOSHA 


Distribuzione esclusiva: GBC Divisione Rebit 


Piccola guida per 
l’input 
dei programmi 


I programmi pubblicati da SUPERSINC sono stati ac- 
curatamente provati e verificati: in questo modo spe- 
riamo di avere ridotto al minimo la possibilità di errori. 
Nel caso comunque un programma dovesse presentare 
malfunzionamenti, pubblicheremo le modifiche da ap- 
prontare in uno dei numeri immediatamente successivi 
della rivista. 

Per utilizzare i programmi pubblicati è sufficiente digi- 
tare i relativi listati sulla tastiera del calcolatore. 

Nel caso dello ZK SPECTRUM, abbiamo previsto una 
semplice decodifica dei tasti da digitare nel modo grafi- 
co, per semplificare la comprensione dei listati. 
Come è noto, lo SPECTRUM è provvisto di 2 serie di 
tasti grafici: una prima serie di 16 caratteri grafici pre- 
definiti (i tasti numerici da 1 a 8 e gli stessi “shiftati”) 
e una serie di caratteri definibili dall’utente nell’ambito 
di un programma (le lettere da A a U). 

In entrambi i casi per ottenere i caratteri desiderati 
occorre entrare in modo grafico (cursore contrassegna- 
to dalla lettera G lampeggiante), premendo contempo- 
raneamente i tasti CAPS-SHIFT e 9. 

Nei nostri listati i caratteri grafici predefiniti sono indi- 
cati da una Q seguita dal numero corrispondente al 
testo che occorre digitare, il tutto racchiuso tra due 
parentesi graffe. 


Quando leggete 


{G1} 
{62} 
{G3} 
{G4} 
{G5} 
{G6} 
{67} 
{G8} 
{SG1} 
{SG2} 
{ SG3 } contempora- 
{SG4} MAS 
{SG5} MM 
{SG6} 
{S67} 
{SG8} 


Se non siete 
già in modo 
G, entrateci 


Se dovete 
uscire dal 


schiacciando modo G, 


schiacciate 9 


E° = Uda 1°in 
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Ad esempio {G4} significa che occorre digitare il tasto 
4, con il cursore in modo grafico. 

Analogamente la codifica SG, seguita da un numero 
da 1 a 8, significa che occorre digitare il relativo tasto 
numerico, premendo contemporaneamente il tasto 
CAPS-SHIFT. 

Ad esempio quando, si trova la codifica G2} occorre 
premere il tasto 2 contemporaneamente al tasto CAPS- 
SHIFT, ovviamente con il cursore in modo grafico. In 
entrambi i casi precedenti, quando un simbolo grafico 
deve essere digitato più volte, i caratteri G o SG della 
codifica sono preceduti da un numero che specifica 
quante volte va premuto il tasto grafico indicato. 

Così ad esempio {8G5 significa che il tasto grafico 5 
va digitato 8 volte e analogamente {4SG1} indica che 
il tasto grafico 1 e CAPS-SHIFT devono essere battuti 
4 volte. 

I caratteri grafici definibili (le lettere da A a U in modo 


grafico) hanno una codifica semplificata: la lettera cor- 


rispondente, sottolineata. 

Quando in un listato viene presentata, ad esempio, una 
A sottolineata occorre entrare in modo grafico (al solito 
premendo contemporaneamente i tasti CAPS-SHIFT 
e 9) e quindi digitare semplicemente il tasto che con- 


trassegna la lettera A. 
Simbolo grafico 


definito nel 
programina in uso. 


Premete 


Se non siete 


già in modo 


J 


Se dovete 


G, entrateci A 
uscire dal 


schiacciando 
contempora- 


modo G, 
schiacciate 9 


x 


IZ IM RJUIHITIOINIEH|IvD[N]Ww jd 


neamente 
CAPS SHIFT 
e9 


QUOCONDODO 


cl NW olvOjz 


d 


Il nostro viaggio tra gli accessori 
di ogni tipo per Spectrum e ZX81 
prosegue tra espansioni di me- 
moria, sintetizzatori vocali e 
“varie”. 


ESPANSIONI DI MEMORIA 


In breve 


ella East London Robotics sono i 

modelli SP48, che porta lo Spec- 
trum 16K a 48K di RAM, e l’SP80, che 
porta lo stesso computer a ben 80K di 
RAM. Entrambi esistono per le varie 
versioni di Spectrum in commercio. Con 
l’SP48 viene inviata in omaggio la cas- 
setta Beyond Horizons, di aiuto per la 


programmazione avanzata. I prezzi so- . 


no 23 sterline per l'’SP48 e 46 sterline 
per l’SP80. 

Dalla Stonechip Electronics ci arriva la 
ZX Panda, un’espansione di 16K per lo 
ZX81. 

Alloggiata in un contenitore dall’aspetto 
robusto l’espansione si collega alla parte 
posteriore del computer per mezzo di un 
connettore. E presente anche un LED, 
che segnala il buon collegamento. 

Sul retro dell’unità non è presente alcun 
connettore di espansione; è però possi- 
bile l’aggiunta all’interno dell’unità stes- 
sa di ulteriori 16K, per mezzo di una 
scheda venduta a 14.50 sterline. 

La ZX Panda è venduta dalla Stonechip 
Electronics a 19.95 sterline. Ulteriori in- 
formazioni possono essere ottenute te- 
lefonando allo 0252/318260. Con l’oc- 
casione potrete chiedere informazioni 
riguardanti anche le periferiche per lo 
Spectrum, che includono penna ottica, 
amplificatore, interfaccia programmabi- 
le per joystick e tastiera aggiuntiva. 
La JRS Software offre una confezione 
di circuiti integrati per trasformare il vo- 
stro Spectrum da 16K in 48K. I vecchi 
Issue one, per altro poco diffusi in Italia, 
possono essere espansi per mezzo di 
una scheda RAM, che viene fissata al- 


trad. e adatt. di Marcello Spero 
Terza parte 
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quitar vave 


l'interno del computer. Non è richiesta 
alcuna saldatura. Il prezzo è di 42.50 
sterline. Per i più comuni Issue two ven- 
gono forniti dodici circuiti integrati, con- 
trassegnati con le lettere dalla A alla E, 
da inserire all’interno dello Spectrum. 
L’installazione viene effettuata molto 
semplicemente, seguendo il diagramma 
fornito. Il prezzo anche per questa ver- 
sione è di 42.50 sterline. 

La DK'Tronics produce espansioni da 
16K e 48K per lo ZX8]1, nonché un Kit 
per aggiungere 32K allo Spectrum 
16K. I prezzi sono: ZX81 16K 22.95 
sterline, ZX81 48K 52.95 sterline, 
Spectrum Issue one 32K 35 sterline, 
Spectrum Issue two 32K 30 sterline. 
La Computer Add-Ons dispone di 
un’espansione da 16K ed una da 64K, 
entrambe per lo ZX81, e di Kit per por- 


tare a 48K gli Spectrum 16K Issue one 
e two. ZX81 16K 22.95 sterline. ZX81 
64K 52.95 sterline. Spectrum Issue one 
32K 35 sterline e Spectrum Issue two 
32K 30 sterline. 

Finite in un elegante color nero lucido, 
le espansioni di memoria della Inde- 
scomp per lo ZX81 forniscono ulteriori 
16K, 32K o 64K. Esiste anche una ver- 
sione per 32K per Spectrum. ZX81 
16K 16.95 sterline. ZX81 32K 21.70 
sterline. ZX81 64K 32.69 sterline. 
Spectrum 32K 28.50 sterline. 

La Cheetah afferma che la sua espan- 
sione a 32K per Spectrum è stata pro- 
gettata specificamente per evitare pro- 
blemi dovuti a collegamento difettoso. 
39.95 sterline dalla Cheetah Marke- 
ting. 

L’espansione Camel’s 64K Dream-81 
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per lo ZX81 è provvista di un LED per 
segnalare l’esatta connessione, della 
possibilità di disabilitare l’area 0-16K di 
RAM e prevede la possibilità di accetta- 
re una EPROM in alternativa. In questo 
caso l’unità ROM-81 vi dà la possibilità 
di utilizzare routine e dati di uso comune 
precedentemente immagazzinati nella 
EPROM. Dream-81 80.44 sterline. 
ROM-81 17.20 sterline. 

La Audio Computers ha introdotto 
un’espansione per lo ZX81, del prezzo 
di 19.95 sterline, che lo amplia a 16K. 
L’unità è provvista di piedini che la por- 
tano alla stessa altezza del computer 
cui è connessa, nonché di un fermo in 
plastica che, poggiando al di sopra dello 
ZX81, blocca l’unità nella corretta posi- 
zione. 

Dalla Memotech proviene una moltitu- 
dine di estensioni hardware per lo 
ZX81; fra queste un buon numero di 
espansioni di memoria. 

Chiamate Memopack, queste unità si 
inseriscono elegantemente alla parte 
posteriore dello ZX81, anche in più di 
una contemporaneamente. Questo con- 
sente notevoli miglioramenti alle presta- 
zioni del sistema. Per aumentare sem- 
plicemente la capacità di memoria dello 
ZX81 possono essere usati i Memopack 
16K, 32K o 64K, rispettivamente al 
prezzo di 29.90, 49.95 e 79 sterline. 
Per un'ulteriore estensione del sistema 
possono essere aggiunti altri tre Memo- 
pack: un’unità per alta risoluzione grafi- 
ca, un’interfaccia Centronics ed un’in- 
terfaccia RS232. Il prezzo è di 39.90 
sterline per ognuna. Potete anche chie- 
dere alla Memotech informazioni sulla 
loro tastiera per ZX81, telefonando allo 
09932977. 

L’espansione da 16K della Data-assette 
costa 28.95 sterline. E pure disponibile 
un ulteriore modulo che, usato in unio- 
ne all’espansione, porta la memoria ad 
un totale di 32K. Il suo prezzo è di 
29.95 sterline. 

Disponibile solo per lo Spectrum Issue 
two esiste un'espansione a 48K a sole 
24.50 sterline. Per maggiori dettagli 
contattate la Fontain Computers Ltd, 
Darvill Road, Ropeley, Alresford, 
Hants SO24 0 BW. Informatevi anche 
sui loro manualetti di istruzioni, che 
spiegano come ottenere la migliore im- 
magine possibile dallo Spectrum. Ven- 
duti a 1 sterlina consentono di ottenere 
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schermate meravigliose, semplicemen- 
te regolando pochi controlli interni. 
L’espansione dello Spectrum, Issue one 
o two, da 16K a 48K è possibile anche 
utilizzando il Kit della Delta Research 
Ltd. In omaggio con ogni confezione vie- 
ne inviato il Delta Chipcheck, una cas- 
setta diagnostica per la memoria, che 
consente la verifica dei 16K già esisten- 
ti, come pure dei nuovi 32K. I prezzi 
sono per la Issue one 37 sterline, per 
la two 31. 


SINTETIZZATORI VOCALI 
E MUSICALI 


Due sono i modi per far “parlare” il 
computer: con la riproduzione di parole 
preregistrate in forma digitalizzata o co- 
struendo le stesse parole per mezzo di 
fonemi ottenuti elettronicamente. Il pri- 
mo metodo produce un risultato più niti- 
do, ma limitato alle parole programma- 
te e molto dispendioso in termini di me- 
moria. Il secondo è più flessibile,ma più 
“robotico” nel suono. 

Eccovi un breve sommario delle presta- 
zioni della mezza dozzina di unità attual- 
mente presenti sul mercato. 

Sweet Talker: buona intonazione, facile 
da usare, provvisto di amplificatore e 
altoparlante incorporato. 

Currah MicroSpeech: molto semplice 
da usare, adatto ai giocatori accaniti, 
visto che diverse case di software pro- 
ducono giochi che ne prevedono l’uso. 
S-Pack: qualità del suono superba, vo- 
cabolario limitato, ideale per scopi di- 
dattici, piuttosto costosa. 

Chatterbox: la scelta dell’utente serio; 
altoparlante e amplificatore incorpora- 
ti, disegnata per adattarsi a ZX81 e 
Spectrum, fa parte di un completo siste- 
ma, che prevede anche un'unità di rico- 
noscimento vocale e un sintetizzatore 
sonoro. 


SUONO 


Sta diventando un’area estremamente 
specializzata dell’elaborazione. Molte 
unità, come ad esempio la Midi, consen- 
tono il collegamento dello Spectrum ad 
una delle economiche tastiere musicali 
disponibili (una è la Casio). 

La maggioranza delle unità utilizzano 
l'eccellente circuito AY-3-0910/8912. 
Agli specialisti si raccomanda la vasta 
gamma di unità di generazione sonora 
prodotte dalla Ricoll, provviste di molte 
sofisticate particolarità, come i filtri digi- 
tali e gli analizzatori a mezza ottava. 
L’unità sonora della Williams Stuart Sy- 
stems funziona nel modo migliore quan- 
do viene usata in unione alle altre due 
che formano il sistema completo; l’unità 
di sintesi vocale contiene infatti un am- 
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plificatore. Davvero notevole è il soft- 
ware di supporto, l’ART (arpeggio or 
note sequencer). Di sicuro interesse 
per i musicisti con limitato bagaglio tec- 
nico. 

La Cheetah ha appena commercializza- 
to il suo BEEP amp. Si inserisce al con- 
nettore posteriore e si collega alla presa 
dell’auricolare. A 9.95 sterline può es- 
sere proprio ciò che fa per voi, se state 
cercando un amplificatore per l’emissio- 
ne sonora dello Spectrum. 

Anche in questo campo è presente la 
DK'’Tronics. Sue sono due unità, all’ap- 
parenza identiche, consistenti nel solito 
involucro comune a tutte le unità di que- 
sta ditta, completato da un altoparlante 
di 12 cm. L’una costa 14.95 sterline ed 
è un semplice amplificatore; l’altra co- 
sta 29.95 sterline e, oltre ad amplificare 
il suono, contiene il circuito AM-3-8912, 
che fornisce tre canali indipendenti con 
controllo di inviluppo e volume. Il suono 
prodotto è molto simile a quello del 
BBC. 

Trichord è un’unità sonora adatta a 
ZX81 e Spectrum. La sua versione più 
recente non contiene più una EPROM 
preprogrammata, ma il software viene 
fornito separatamente su cassetta. La 
si può ottenere dalla Newtech (mi- 
cro)Development, 1 Courtlands Rd., 
Newton Abbott, Devon, TQ12 2JA. 
Tel. 0626 62836. 


I prezzi sono: 


ZX81 

senza amplificatore 24.95 
con amplificatore 26.95 
Spectrum 

senza amplificatore 26.95 
con amplificatore 28.95 
più per l’apposito zoccolo 1.00 


In breve 


Lo Sweet Talker, disponibile a 34.95 
sterline, è disegnato per adattarsi allo 
ZX81 come allo Spectrum. L'unità 
giunge completa di cassetta dimostrati- 
va ed istruzioni sull’uso del sistema ad 
allofoni. 

La Currah U Speech, per lo Spectrum, 
“dice” le lettere e le parole del BASIC 
man mano che queste vengono digitate. 
La stringa S$ conterrà tutto quello che 
volete far eventualmente dire all’unità. 
L’uso all’interno di normali programmi 
BASIC è semplicissimo, poiché il suono 
viene trattato in forma di allofoni. Per 
questo la parola “hello” deve essere 
scritta così: HE(LL)(OO). 

Le maiuscole e le minuscole stabilisco- 
no l’intonazione. Diverso software com- 
merciale fa uso della U-Speech per i 
giochi. Un esempio è Birds and the 


Bees, della Bug-Byte. Di forma e dimen- 
sioni simili a quelle di una musicassetta, 
la U-Speech richiede soltanto di essere 
inserita al connettore posteriore. Il suo 
unico problema è che non consente il 
collegamento di alcuna ulteriore unità, 
a parte l’unità vocale e probabilmente 
i microdrive. Il suono viene emesso dal- 
l’altoparlante del televisore; se utilizza- 
te un monitor, questo sistema non fun- 
ziona. 29.95 sterline. 

Il Chatterbox per lo ZX81 e lo Spec- 
trum è un’altra delle unità prodotte dal- 
la William Stuart. Fa uso di allofoni, che 
consentono una programmazione piut- 


tosto semplice. È equipaggiato inoltre 
con due spinotti per amplificatore ester- 
no, l’uno stereo e l’altro mono, ed è 
provvisto di connettore posteriore per 
ulteriori periferiche. Piuttosto interes- 
sante, a 45 sterline, dalla William Stuart 
Systems. 

La S-Pack DCP Microdevelopments è 
un miglioramento del Digitalker, vec- 
chia unità vocale per lo ZX81. Ora pre- 
vista per lo Spectrum, può essere acqui- 
stata a 49.95 sterline. 

L’unità viene fornita con un vocabolario 
di 71 parole, frasi, numeri e lettere, ri- 
chiamabili da qualsiasi programma 


usando semplici istruzioni BASIC. 

Se vi doveste annoiare del suo vocabo- 
lario, potrete sempre comprare uno de- 
gli altri tre Words Pack, ciascuno a 
14.95 sterline, forniti sotto forma di 
ROM. 

Lo Zeal’s Sound Booster possiede un 
altoparlante da 9 cm, un congegno per 
effettuare LOAD e SAVE senza dover 
staccare e attaccare gli spinotti ed un 
controllo di volume. Si inserisce ester- 
namente e non richiede batterie. 14.99 
sterline dalla Zeal Marketing. 

IL Telesound BEEP Booster è un miglio- 
ramento dell’unità Telesound 84. La 
nuova unità funziona sia con gli Spec- 
trum Issue two che con gli Issue three. 
Permette di amplificare il suono prove- 
niente dal computer ed inviarlo all’alto- 
parlante del televisore. Misurando solo 
2 cm per 1.2 cm per l cm, è senz’altro 
il più piccolo modulatore esistente. Vie- 
ne collegato internamente allo Spec- 
trum attraverso contatti miniaturizzati. 
Facilmente adattabile ad un’ampia va- 
rietà di usi è il BEEP Amp della Hypno- 
tech. L’unità comprende un amplifica- 
tore da 8 watt ed una piccola cassa 
acustica con woofer e tweeter da 10 
watt. L'alimentazione è indipendente. Il 
collegamento con lo Spectrum avviene 
attraverso la presa MIC. Il prezzo è di 
23.95 sterline. 

Dalla BI-Pack Semiconductors arriva la 
ZONX-81, compatibile con tutti i com- 
puter Sinclair, anche se per lo Spec- 
trum è necessario un adattatore, acqui- 
stabile anche separatamente per 6.80 
sterline nel caso stiate passando dallo 
ZX81 allo Spectrum. 

L’unità offre una vasta gamma di effetti 
sonori, come pianoforti, campane, eli- 
cotteri, laser, esplosioni, ecc. Il circuito 
sonoro usato è stato progettato in modo 
che tono, volume e inviluppo dei tre 
canali siano controllabili per mezzo di 
istruzioni BASIC. La versione per ZX81 
costa 25.95 sterline, mentre quella per 
Spectrum, completa di adattatore, 
320/05: 

Della Micro Power è lo Spectrum Add- 
on, del costo di 19.95 sterline. L’unità, 
una volta collegata, fornisce tre canali 
di effetti sonori e comprende un amplifi- 
catore da 2 watt ed un altoparlante. E 
stato inoltre previsto lo spazio per due 
joystick, acquistabili a 7.45 sterline 
l’uno. 

Il Soundbox è la versione sonora del 
Chatterbox. Dispone di un suono a tre 
canali di qualità superiore ed è vera- 
mente facile da programmare. Ottimo, 
sebbene richieda un amplificatore ester- 
no. 27.95 sterline dalla William Stuart 
System. 

Lo Specsound rappresenta un buon ac- 
quisto nel campo degli amplificatori. Si 
inserisce nelle prese MIC ed EAR, la- 
sciando libero il connettore posteriore. 
Dispone di controllo di volume ed inter- 
ruttore; l’alimentazione è a batteria. 
Sarebbe forse stato meglio ricavare 
l'alimentazione direttamente dal com- 
puter, per evitare di dover acquistare 
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le batterie. 7 sterline dalla Kelwood. 

Il Sound Synthesiser per lo Spectrum è 
un modulo sonoro a tre canali con con- 
trollo di inviluppo, amplificatore ed alto- 
parlante, provvisto inoltre di due porte 
di ingresso e uscita. 28 sterline dalla Si- 
gnpoint. 


PERIFERICHE y 
DI VARIA UTILITA 


Un numero sempre maggiore di appas- 
sionati di home computing sta iniziando 
ad interessarsi anche di elettronica e 
degli aspetti di questa collegati all’ela- 
borazione. Per questo parecchie azien- 
de producono congegni vari collegabili 
al computer. 

La Camel Products, Cambridge Microe- 
lectronics Ltd., 1Milton Rd, Cambridge 
CB4 1 UY, produce una vasta gamma 
di prodotti per l’uso delle EPROM. Di 
rilievo il PROMER SP, che consente la 
programmazione del controllo di 
EPROM da 8K o da 16K. 

Il prezzo è di 29.95 sterline. Interessanti 
anche il ROM SP, che carica ed esegue 
istantaneamente fino a 16K di program- 
ma da EPROM e due cancellatori di 
EPROM, DHOBI 1 e 2. Sempre della 
Camel è un alimentatore tampone, che 
protegge il computer da cadute di ten- 
sione ed interferenze. Sono disponibili 
versioni per ZX81 e Spectrum. 
All’utilizzatore più interessato si rivolgo- 
no i modem. Si tratta di unità che con- 
sentono il collegamento con altri com- 
puter attraverso la linea telefonica. 

In Gran Bretagna, dove questo sistema 
di comunicazione è molto diffuso anche 
fra gli hobbisti (sono famose le due gran- 
di reti Prestel e Micronet 800), sono due 
i modelli di modem ufficialmente appro- 
vati dall’azienda telefonica. 

Uno è il VTX 5000 della Prism, che si 
connette direttamente alla presa telefo- 
nica, e l’altro è il modello 1200 della 
Protek, accoppiato acusticamente (il ri- 
cevitore va posto cioè in un’apposita 
unità collegata allo Spectrum). 

La Skywave Software produce una 
FORTH ROM per Spectrum e ZX81. 
Si tratta di una versione molto sofistica- 
ta di questo linguaggio, ideale per appli- 
cazioni di controllo. Il suo prezzo è di 
15 sterline più VAT (IVA inglese). 
Stephen Adams ha presentato un certo 
numero di interessanti congegni per 
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ZX81 e Spectrum. Lo Straight Adaptor 
trasforma l’uscita posteriore dello Spec- 
trum nella stessa porta di espansione 
dello ZX81. Della stessa ditta sono gli 
Adam and Eve Adaptors. Il primo con- 
sente il collegamento di un’espansione 
per ZX81 allo Spectrum 16K, raddop- 
piando così la sua memoria. L’Adam II, 
aggiornamento dell’Adam, consente 
l’uso contemporaneo di due serie di pe- 
riferiche con lo Spectrum 16K. Il secon- 
do permette invece ai possessori di 
Spectrum 48K l’utilizzo di una vasta 
gamma di periferiche per ZX81 (purché 
queste operino nella zona 0-16K della 
mappa di memoria dello ZX81). Il prez- 
zo è uguale per tutti, 9 sterline. 

Per lo ZX81 la stessa ditta ha realizzato 
un controllore programmabile per il re- 


EEE, 


Spectrum 
Shopping 2 


Naizag 


gistratore, l’RZ1 per lo ZX81 e lo Spec- 
trum. Oltre a non dover staccare e riat- 
taccare i cavi per effettuare il SAVE e 
il LOAD, il motore del registratore vie- 
ne ad essere sotto controllo del pro- 
gramma. Il prezzo di questo congegno 
è di 20 sterline. 


In breve 


Se avete bisogno di aiuto con i comandi 
PLOT, CIRCLE e DRAW, troverete in- 
teressante questo Kit della Victa Cera- 
mics. 

Composto da un piano in plastica ed 
una serie di schermi calibrati in plastica 
trasparente, il Victagraph include an- 
che un disegno test ed esaurienti istru- 
zioni. Serve a determinare rapidamente 


le varie coordinate di un disegno. 

Il suo prezzo è di 7.50 sterline. Per mag- 
giori informazioni contattate la Victa 
Ceramics, 6A Bow Street, Rugeley, 
Staffordshire, o telefonate allo 08894 
2426. 

Se avete sperimentato problemi con 
l'alimentazione, il Battpack può essere 
una soluzione. Questo congegno com- 
prende un accumulatore ricaricabile 
Ni-Cd da 9 volt ed un soppressore di 
transienti, in un contenitore simile a 
quello dell’alimentatore originale Sin- 
clair. Il Battpack assicura che il voltag- 
gio che giunge al vostro ZX81 o Spec- 
trum non scenda mai sotto i 9 volt, eli- 
minando in questo modo ogni rischio di 
blocco. Il suo prezzo è di 13.95 sterline. 
Il Power Supply Regulator and “Buzz” 
Omitter per ZX81 e Spectrum è una 
scatola argentata delle dimensioni di un 
pacchetto di sigarette, che si inserisce 
fra l’alimentatore ed il computer. Elimi- 
na il ronzio ed i problemi di surriscalda- 
mento. 8.95 sterline dalla P. R. Electro- 
nics. 

L’Inverse Video Module per ZX81 dà 
un’ottima immagine bianco su nero, pur 
creando problemi a qualche televisore. 
Per installarlo bastano tre saldature al- 
l’interno dello ZX81. Un interruttore ne 
consente l’esclusione. Già installato 
7.50 sterline. In kit 4, da D. Fritsch. 
La Haven Hardware dispone di una va- 
sta gamma di periferiche per ZX81 e 
Spectrum. 

Per lo ZX81 c’è un generatore pro- 
grammabile di caratteri, a 15.95 sterli- 
ne; un modulo per la ripetizione auto- 
matica dei tasti a 3.95; un modulo per 
il video inverso, a 3.50; un “bip” per la 
tastiera a 6.95; una porta di input/ 
output a 11.95; una tastiera aggiuntiva 
a 18.95; ed ancora molte altre. 

Per lo Spectrum c’è invece una porta 
di input /output, che dispone di 8 ingres- 
si ed 8 uscite, accessibile attraverso il 
connettore posteriore. 12.95 sterline in 
kit o 16.95 già montata. 

Il Masterplug per ZX81 e Spectrum 
consente il collegamento di 4 apparec- 
chi (ad esempio TV, registratore, com- 
puter, stampante) ad una singola presa. 
Fornito con un metro e mezzo di 
cavo con spina costa 10.99 sterline. Di 
H e K Supplies. 

Una vasta gamma di cavi piatti con con- 
nettori a 56 vie, utilizzabili ad esempio 
per separare l’espansione di memoria 
dal computer, è disponibile da Hawnt 
Electronics a_prezzi fra le 4.99 e le 
9.49. Della stessa ditta un convertitore 
femmina-maschio per connettori, a 
1.99 sterline. 

La Arab RAM per ZX81 va inserita fra 
il computer e l’espansione di memoria 
per ottenere un set completo di caratte- 
ri, comandi e funzioni in una versione 
araba del BASIC chiamata Saudia. La 
scrittura e l’esecuzione delle operazioni 
avviene da destra verso sinistra. La 
confezione comprende un manuale di 
istruzioni. Per maggiori informazioni 
contattate la Autoram. 
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QUALCOSA DI SUPER, DI INEDITO, 
DI IRRESISTIBILE 


IL VERO Gioco 
COMINCIA ADESSO 


nuovidea 


È IN EDICOLA 


La softrivista con i giochi 
esclusivi per Commodore 64 
e Spectrum 48K 

importati dall'Inghilterra, mai 
presentati in Italia. 

Una sfida Jackson al già visto, 
al già fatto, al... già registrato. 
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Ogni mese in edicola 
la softrivista con: 
6 pagine di commento 
al supergame presentato; 


4 pagine di rubriche; ù Pr 
22 pagine di listati scelti tra o ES 
il meglio di quanto pubblicato OV sed ala 
in fatto di grafica, giochi, utility. puÒ ee IT 
una cassetta originale con Tae Korn 
il SUPERGAME del mese ves RITI? 

pt 


Corri in edicola, il vero gioco comincia solo adesso 

e se sei davvero bravo partecipa alla “sfida al campione”, 
utilizzando il tagliando che troverai sull’ultima pagina 

di copertina di ogni numero. 


GRUPPO 
EDITORIALE 


SAN FRANCISCO #eLONDRA@ MILANO 


Gli 
ultimi 
Saranno 


sn 


Anche se, in ordine di tempo, 
siamo gli ultimi a uscire con libri 
“dedicati” ai più diffusi home e 
personal computer, siamo convinti 
che il lettore attento ed esigente 
apprezzerà la qualità dei contenuti 
e la loro presentazione. 

Abbiamo selezionato e tradotto i 
best-seller mondiali che accolgono 
quanto di più utile è stato scritto 
per il tuo computer. 


Scegli a colpo sicuro! 


Puoi ordinare direttamente i titoli presentati 
compilando ed inviando il coupon pubblicato 
oppure acquistarli presso i più qualificati 
computer shop e le migliori librerie. 


CEDOLA DI ORDINAZIONE - LIBRI 


Compilare e spedire in busta chiusa a: 
J. soft - Viale Restelli 5 - 20124 Milano 
tel. 02/6880841-6880842-6880843 


Ordino i seguenti libri por un importo totale di L. ................... 
+ L. 2.000 come contributo fisso per spese di spedizione 


ERA 


Cod: irrrraienza) 
Cod. ... 
Codes 08 


O Contanti allegati | 
O Assegno allegato n°................................. | 
O Hospedito l'importo a mezzo vaglia postale | 
O Ho versato l'importo sul CCP n° 19445204 intestato a I 
J. soft- Milano | 

O Pagherò in contrassegno al postino al ricevimento dei! 
volumi | 

| 

| 


NUO LOCA NI 
{i 


Per Commodore 64 


> C6A= que licoA| 
Giochi fantastici per il C 64 è f 
Cod. ASOC 001 L. 42.000 


(inclusa cassetta) 


Un libro pensato e 
realizzato per il B- 
divertimento dell'utente # 
del C 64; contiene 19 i 
giochi di vario genere tutti: 
ampiamente commentati. “É 
L’attento studio dei i 
programmi potrà essere 
vantaggioso per 
l’apprendimento delle 
tecniche di 
programmazione. 


Il libro del C 64 

Volume 1 

Cod. ASOC 010 L. 24.000 
(inclusa cassetta) 

Il libro del C 64 

Volume 2 

Cod. ASOC 011 L. 24.000 È 
(inclusa cassetta) 


C 64: suono e grafica - 
Volume 1 

Cod. ASOC 008 L. 24.000 
(inclusa cassetta) 

C 64: suono e grafica - 
Volume 2 

Cod. ASOC 009 L. 24.000 
(inclusa cassetta) 


\ Due volumi che non 

\ possono mancare nella 

° biblioteca dell'utente 
Commodore. Una miniera 
di idee e suggerimenti per 
la programmazione del 
tuo personal computer. 
Una vasta serie di 
programmi esemplificativi 
guidano il lettore al 
miglior sfruttamento del 
Commodore 64. 


| due libri illustrano a 
fondo le possibilità del 
Commodore 64. Un 
compendio di utili 
consigli, e quant'altro è 
necessario per conoscere 
meglio il proprio 
calcolatore. Esempi pratici 


completano l'esposizione Per ZXSpeetrum 

in modo chiaro ed ea "a scr: ; 

seourani 15 giochi grafici per all'uso” e ampiamente 
ZX Spectrum commentati. | programmi 


Cod. ASOC 002 L. 24.000 


(inclusa cassetta) 


sono scritti sfruttando 
appieno le capacità del 
calcolatore ed il loro 
studio può giovare a 
chiunque intenda affinare 
le proprie tecniche di 
programmazione. 


Un fantastico volume con 
15 entusiasmanti giochi 
gene per il tuo ZX 
pectrum. Tutti i 
programmi sono “pronti 


Inoltre, i Paper Book: la 
raccolta dei programmi 
suddivisi per macchina di 
Paper Sott, il primo 
settimanale di software su 
carta per il tuo computer. 


Paper Book - programmi 
per Apple // - 

Cod. ASOC 005 L. 18.000 
Paper Book - programmi 
per VIC 20 - 

Cod. ASOC003 L. 18.000 
Paper Book - programmi 
per Commodore 64 - 
Cod. ASOC 004 L. 18.000: È 
Paper Book - programmi 
per Texas TI 99/4A - 

Cod. ASOC 007 L. 18.000 


Paper Book - programmi In ogni volume, 


per ZX Spectrum - corredato di cassetta, 
Cod. ASOC 006 L. 18.000 oltre 40 programmi 
A per il tuo computer: 


‘ giochi grafici, 
utility, arcade, 
adventure una miscela 
esplosiva di software 
“pronto all'uso”! 


Viale Restelli, 5 - 20124 Milano - tel 02/688084 1 -6880842-6880843 


E 


ont pole Ra 


SO Rave a 


Pascal: il “NON GOTO” 
\rN dela 
\ 


Presentazione di uno tra i più 
utilizzati linguaggi di program- 
mazione. 


pio con questo numero una serie 
che ci guiderà quasi ogni mese al- 
l'esplorazione degli altri linguaggi. 
Qell’“altri” sta per “diversi dal BASIC”, 
ormai universalmente riconosciuto co- 
me il linguaggio fondamentale dei picco- 
li computer. 

Non si tratta di corsi: non è possibile 
realizzare un corso di programmazione 
in un determinato linguaggio in un’unica 
puntata. La nostra intenzione è piutto- 
sto quella di dare una panoramica delle 
caratteristiche, pregi e difetti di vari lin- 
guaggi, in modo da interessare e coin- 
volgere quanti finora si sono tenuti fuori 
da questo campo. 

Se poi l’interesse per un dato linguaggio 
sarà tale da giustificare una sua tratta- 
zione più ampia, siate certi che non 
mancherà il corso completo in più pun- 
tate. Tutto dipende da voi! 

Il posto d’onore in questa nostra serie 
spetta al Pascal. Si tratta infatti del lin- 
guaggio che più di ogni altro ha influenza- 
to il modo moderno di programmare. 
Nato all’Università di Zurigo ad opera 
di un gruppo di ricercatori fra cui pri- 
meggia la figura di Niklaus Wirth, intor- 
no al 1969, il Pascal raccoglie l’eredità 
del famoso, anche se ormai superato, 
linguaggio ALGOL. 

Si tratta comunque di qualcosa di com- 
pletamente nuovo, che per la prima vol- 
ta dà a chi lo usa la possibilità di stende- 
re programmi “ben scritti”. 

L’intento dei suoi creatori era prevalen- 
temente didattico; ciò che si voleva rea- 
lizzare non era infatti un linguaggio 
adatto ad un tipo particolare di proble- 
mi, come era stato a suo tempo per 
FORTRAN e COBOL, tanto per fare 
un esempio. L’obiettivo era piuttosto la 
creazione di uno strumento di program- 
mazione che rendesse possibile la mes- 
sa in pratica di tutti quei criteri di buona 
programmazione frutto di qualche de- 
cennio di esperienza pratica ed insegna- 
ti in tutti i corsi universitari di Scienza 
delle Informazioni. 


Questi criteri, che costituivano un po’ il 
“nuovo corso” dell’informatica, posso- 
no essere riassunti nell’idea fondamen- 
tale che un programma debba essere 
quanto più possibile chiaro e leggibile, 
in modo da risultare comprensibile non 
solo per chi lo ha scritto, ma per chiun- 
que lo legga. Questo comporta che sia 
immediatamente chiaro lo scopo del 
programma stesso, e di ogni sua parte, 
DRS ancora di averlo studiato nei det- 
tagli. 

La fonte principale di confusione e scar- 
sa comprensibilità dei programmi è 
l’uso dell’istruzione GO TO. 

In un listato, infatti, linee tipo 


IE XATHENIGO FO 


di Marcello Spero 


o semplicemente 


GO TO 


non dicono niente su cosa effettivamen- 
te farà il programma da quel punto in 
poi. Per scoprirlo occorre seguire il sal- 
to, perdendo così il senso generale del 
programma. Ancor più disagevole risul- 
ta tornare indietro per vedere cosa sa- 
rebbe successo, nel caso di una IF, in 
assenza della condizione richiesta per il 
salto. 

Più in generale, un programma con mol- 
ti salti risulta intricato e non lineare. Per 
porre fine a questa situazione, nel Pa- 
scal sono state introdotte diverse nuove 
strutture, che consentono una program- 
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mazione completamente priva di GO 
TO. L’uso di questa istruzione, infatti, 
pur presente nel “vocabolario” del Pa- 
scal per ragioni di compatibilità e per 
far fronte a particolari esigenze, viene 
energicamente sconsigliato (potremmo 
quasi dire “vietato”) dagli stessi auto- 
ri. 

Un altro punto notevole del Pascal, che 
migliora ulteriormente il livello di chia- 
rezza dei programmi, è la struttura dei 
suoi sottoprogrammi. Chiamati con un 
nome, e funzionanti sotto molti aspetti 
come programmi indipendenti, costitui- 
scono uno dei fondamenti della cosid- 
detta “programmazione strutturata”, 
cioè la stesura di programmi modulari, 
facilmente comprensibili e modificabili, 
un po’ come dei prefabbricati, in cui i 
vari sottoprogrammi svolgono il ruolo 
dei “pezzi” da montare. 

Ultima, ma forse più importante, carat- 
teristica che fa del Pascal qualcosa di 
completamente diverso da tutti i lin- 
guaggi che lo hanno preceduto (in segui- 
to molti di essi sono stati aggiornati con 
strutture più o meno “copiate” dal Pa- 
scal) è l’incredibile duttilità delle sue va- 
riabili e strutture di dati. Un articolato 
sistema di definizione del tipo di ogni 
variabile (intera, reale, logica, ma anche 
colore, nome, fila, purché il significato 
di questi tipi sia stato “spiegato” al pro- 
gramma) ne chiarisce la funzione e con- 
temporaneamente impedisce eventuali 
errate operazioni fra variabili che con- 
tengono “cose” diverse. Per quanto ri- 
guarda le strutture più complesse, la 
loro varietà e flessibilità è tale che prati- 
camente qualsiasi struttura di dati sia 
possibile definire a parole, matematica- 
mente o graficamente, potrà essere ri- 
prodotta in Pascal senza modifiche. 
Vediamo ora un po’ più da vicino le 
caratteristiche di questo linguaggio, ser- 
vendoci anche di qualche esempio. 
Innanzitutto c’è da dire che in Pascal 
non esiste il concetto di linea di pro- 
gramma; un programma potrebbe an- 
che essere scritto tutto di seguito, senza 
che questo comporti alcuna differenza 
per la sua esecuzione. L’unità di pro- 
gramma è invece la frase, che può esse- 
re semplice o composta. 

Una frase semplice è formata da 
un’istruzione, e terminata da un punto 
e virgola. Una frase composta inizia in- 
vece con la parola BEGIN e termina 
con la parola END. E formata da più 
frasi semplici, ciascuna separata da un 
punto e virgola. 

In qualsiasi punto di un programma sia 
possibile usare una frase semplice, sarà 
possibile usare anche una frase compo- 
sta. Un esempio chiarirà meglio il con- 
cetto: 


le due strutture 


IF a>b THEN 
numero:= massimo; 

alfa:= beta; 

e 
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IF a>b THEN 
BEGIN 
numero:= massimo; 
minimo:= 0); 
somma:= fattore + numero 
END; 
alfa:= beta; 


sono entrambe possibili. In ambedue i 
casi se a fosse minore di b, l'esecuzione 
si sposterebbe alla frase 


alfa:=beta 


Su questo primo esempio si possono fa- 
re alcune considerazioni. 

Per prima cosa, non esistendo il concet- 
to di linea di programma, non esistono 
i numeri di linea. 

La “spezzettatura” ed il rientro (si chia- 
ma indentatura) delle varie parti del 
programma vengono effettuate al solo 
scopo di rendere più chiaro il suo funzio- 
namento a chi legge. In questo modo, 
infatti, i vari blocchi funzionali sono po- 
sti in risalto. 

Infine, nelle istruzioni di assegnazione si 
usa il simbolo 


al posto del semplice “uguale”, per indi- 
care chiaramente che non si tratta di 
un’uguaglianza, del tipo di 


IF alfa=beta THEN 


ma di un’operazione di trasferimento. 
L’irregolarità, dal punto di vista mate- 
matico, di espressioni del tipo 


alfa=alfa + 1 


usate in altri linguaggi è infatti eviden- 
te. 

La filosofia delle frasi non si ferma qui. 
L’intero programma, infatti, è visto in 
Pascal come una grande frase, aperta 
da BEGIN e chiusa da END, composta 
da tante altre frasi, semplici o compo- 
ste. Prima del BEGIN di un programma, 
come pure di ogni sottoprogramma, de- 
vono esserci le frasi dichiarative, le qua- 
li specificano la natura delle variabili 
che verranno utilizzate nel programma 
stesso. 

Le variabili, in Pascal, devono tutte es- 
sere definite prima di poter essere usa- 
te. Ciò vuol dire che se in un program- 
ma c'è l’istruzione 


gianni:=pippo + 1 


all’inizio del programma stesso, le varia- 
bili pippo e gianni dovranno essere sta- 
te definite: 


VAR pippo, gianni: INTEGER; 
oppure 


VAR pippo, gianni: REAL; 
ma dovranno comunque essere dello 


stesso tipo, visto che vengono poste in 
relazione. La dichiarazione: 


VAR pippo: INTEGER; 
gianni: REAL; 


renderebbe errata l'operazione vista so- 


pra. 

INTEGER e REAL sono due “tipi”. Il 
loro significato è noto al programma, 
poiché si tratta di tipi predefiniti, che 
indicano rispettivamente numeri interi 
e reali (cioè anche decimali). 

Altri tipi predefiniti sono 


CHAR carattere 
BOOLEAN logico 


Variabili del primo tipo possono conte- 
nere solo caratteri, variabili del secondo 
possono assumere solo i due valori 
TRUE (vero) e FALSE (falso). Abbiamo 
detto, però, che è possibile la definizio- 
ne di variabili di qualsiasi tipo, purché 
il programma venga messo al corrente 
della natura del tipo stesso. 

Osservate questa sequenza di definizio- 
ne: 


TYPE colore= (rosso, giallo, verde, 
blu); 
VAR cielo, mare, vestito: colore; 


con cui viene creato il nuovo tipo “colo- 
re”, capace di assumere solo i quattro 
valori rosso, giallo, verde e blu. Le va- 
riabili cielo, mare e vestito vengono 
quindi definite come “colore”. Saranno 
perciò possibili le operazioni: 


cielo:= blu; 
mare:= blu; 
vestito:= verde; 


mentre le operazioni: 


mare:= 12; 
cielo:= nero; 


non sono ammesse. Infatti 1 e nero non 
sono compresi fra i possibili valori di 
una variabile di tipo colore. 

Il fatto che i colori all’interno della pa- 
rentesi siano in un determinato ordine 
consente anche confronti: 


IF cielo > mare THEN 


L’ordine in cui sono visti i quattro colori 
è: 


rosso < giallo < verde < blu 
Più elementi semplici (scalari) possono 


essere riuniti in strutture complesse, i 
record. Osservate, ad esempio, 


TYPE data = 
RECORD 
mese: (gen, feb, mar, 
apr, mag, giu, 
lug, ago, set, ott, 
nov, dic); 
giorno: 1..31; 
anno: 1900.. 1985 
END; 


VAR compleanno: data; 


Viene definito il record data, composto 
da tre diversi elementi; ciascuno è di 
tipo diverso e può assumere valori di- 
versi. Nel programma potremo avere: 


compleanno.mese:=feb 
IF compleanno.anno=1960 THEN 


e così via. 

Notate come, per ovvi motivi, vada 
sempre espresso l’elemento del record 
cui ci si riferisce, separato con un punto 
dal nome della variabile. 

Nella dichiarazione di tipo, invece, il 
doppio punto indica “da...a”, cioè la 
gamma dei possibili valori. 

Lo stesso sistema si usa anche con gli 
array, strutture equivalenti ai vettori: 


TYPE risultati = ARRAY &1...500& 
OF INTEGER 
VAR votiscritto, votiorale: risultati 


Con questa sequenza abbiamo definito 
due variabili, votiscritto e votiorale, co- 
me tipo risultati. Questo tipo è un insie- 
me (array) di 500 valori di tipo intero. 
Variabili di questo tipo possono essere 
utilizzate per immagazzinare i voti di 
500 studenti. 
Esiste infine una struttura, detta set, 
che riproduce il concetto matematico di 
insieme. Definendo 
TYPE studente = (rossi, bianchi, carli, 
ceschi); 
gruppo = SET OF studenti; 
VAR lezionestoria, lezionegeografia, le- 
zionescienze: gruppo 


si possono effettuare le operazioni: 
lezionegeografia:= &rossi, carli, ce- 
schi & 


lezionescienze:= &bianchi, carli, ros- 
si& 


(assegnazione) 


lezionestoria:= lezionegeografia + lezio- 
nescienze 


(unione; lezionestoria conterrà gli stu- 
denti delle altre due variabili: rossi, 
bianchi, carli e ceschi) 


lezionestoria:= lezionegeografia — lezio- 
nescienze 


(differenza; lezionestoria conterrà gli 
studenti che sono in lezionegeografia, 
ma non in lezionescienze: ceschi) 


lezionestoria:= lezionegeografia * lezio- 
nescienze 


(intersezione; lezionestoria conterrà so- 
lo gli studenti comuni a lezionegeografia 
e lezionescienze: rossi, carli) 


Sulle variabili le cose da dire sarebbero 
ancora moltissime; questi pochi esempi 
saranno comunque bastati a delineare 
le enormi possibilità di “programmazio- 
ne a misura d’uomo”, se così si può 
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dire, offerte dal Pascal. Si diceva delle 
particolari strutture di questo linguag- 
gio atte a rendere inutile l’uso dei salti. 
Possiamo in generale suddividere le 
strutture di controllo di un qualsiasi lin- 
guaggio in due categorie: 


— strutture di ciclo 
— strutture di scelta 


Per quanto riguarda la prima categoria 
siamo abituati a disporre, nei linguaggi 
tipo BASIC, del solito 


FOR...NEXT 


in cui la durata del cielo è determinata 
a priori. E necessario cioè conoscere 
quante volte dovrà essere ripetuto un 
dato gruppo di istruzioni. 

Il Pascal possiede qualcosa di analogo 
nella struttura 


FOR...DO 


con alcune limitazioni ed alcuni vantag- 
gi rispetto agli altri linguaggi. 

Le limitazioni riguardano il passo (lo 
“step”), che non può essere variato ed 
è sempre uguale a 1, e la variabile di 
controllo, che non può essere di tipo 
reale (cosa questa abbastanza logica, 
visto che può variare solo di unità inte- 
re). 

I vantaggi riguardano invece la possibili- 
tà di utilizzare variabili di controllo di 
qualsiasi altro tipo. Ad esempio, la for- 
ma 


FOR a:= 1 TO 10 DO 
è corretta, ma lo è anche la forma 
FOR cielo:= rosso TO blu DO 


supponendo di aver definito cielo come 
abbiamo visto prima. Secondo la defini- 
zione data del colore, ciclo durante 
il ciclo assumerà dapprima il valore ros- 
so, poi giallo, quindi verde ed infine blu. 
Pur non essendo possibile variare il pas- 
so di un ciclo, è consentito invertirne il 
funzionamento: 


FOR a:= 6 DOWNTO 1 DO 
e 
FOR cielo:= blu DOWNTO giallo DO 


ne sono due esempi. 

Come tutte le strutture di controllo, 
FOR non ha delimitatori, tipo NEXT, 
per intenderci. Esso infatti agisce solo 
sulla frase a lui immediatamente se- 
guente, semplice o composta che sia. 


Quindi in 


FOR a:= 1 TO.5 DO 
pippo:= gianni + 1 
alfa:= beta DIV 2; 


FOR a:= 1 TO 5 DO 
BEGIN 
pippo:=gianni + 1; 
gamma:= alfa DIV beta; 
numero:= (fattore /2.4)*3 
END; 
alfa:= beta BIV 2; 


l'esecuzione di 
alfa:= beta DIV 2; 


verrà effettuata solo dopo aver ripetuto 
per 5 volte la frase precedente, sempli- 
ce o composta. 

In questi esempi è stato introdotto un 
operatore che non esiste in altri linguag- 
gi (tranne il SuperBASIC del QL, 
N.d.r.): 


DIV 


si tratta dell'operatore di divisione fra 
numeri interi, che produce un risultato 
intero. 


5 DIV 2 
dà quindi 2, mentre 
5/2 


darà 2.5. 

Tornando alle strutture di controllo, nei 
casi in cui non è possibile conoscere a 
priori il numero di cicli, in molti linguag- 
gi si è costretti ad usare strutture com- 
posite tipo 


IF... GO TO 


dove un salto indietro, e la conseguente 
ripetizione del ciclo, è condizionato al 
verificarsi (o al non verificarsi) di una 
determinata condizione. 

Il Pascal possiede due strutture che fan- 
no la stessa cosa senza ricorrere al GO 
TO. Si tratta di 


REPEAT 


UNTIL... 


che ripete le frasi contenute fra le due 
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parole finché non si verifica la condizio- 
ne specificata dopo UNTIL. Esempio: 


REPEAT 
READ (nuovodato); 
somma:= somma + nuovodato; 
totaledati:= totaledati + 1 
UNTIL nuovodato= 0; 
somma:= somma/totaledati; 


che continua a sommare finché la varia- 
bile nuovodato, introdotta dall’esterno 
con l’istruzione READ (analoga alla IN- 
PUT del BASIC), non sia uguale a 0. 
Se osservate bene il segmento di pro- 
gramma appena illustrato, vi accorgere- 
te che si tratta del calcolo di una media. 
Probabilmente vi accorgerete anche 
che c’è un errore; infatti, dopo aver let- 
to un dato 0, il programma ne esegue 
la somma, prima di accorgersi che è 0 
ed uscire. Questo comporta l’ulteriore 
aumento di totaledati, con conseguente 
errore. 

Per evitare questo possiamo ricorrere 
alla struttura 


WHILE.... DO 


che esegue il medesimo ciclo condizio- 
nato, ma controlla il verificarsi della 
condizione all’inizio di ciascun passag- 
gio, anziché alla fine: 


READ (nuovodato); 
WHILE nuovodato <> 0 DO 
BEGIN 
somma:= somma + nuovodato; 
totaledati:= totaledati + 1; 
READ (nuovodato) 
END; 
somma:= somma/totaledati; 


La READ che precede il ciclo è necessa- 
ria per fornire il primo dato al program- 
ma. Come vedete, anche qui viene ese- 
guita un’unica frase, e non c’è delimita- 
tore. 

Per quanto riguarda le strutture di scel- 
ta, oltre all'ormai nota (è stata adottata 
da molti altri linguaggi) 


IE-SFEEN 


ELSE 
esiste la struttura 


GASE:OE 


equivalente al SELect ON del QL. Os- 
servate questo esempio: 


IF mese=1 THEN 
WRITE (‘gennaio’) 

ELSE IF mese=2 THEN 
WRITE (‘febbraio’) 


ELSE IF mese=3 
WRITE (‘marzo’) 


ELSE IF mese=12 THEN 
WRITE (‘dicembre’) 
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(WRITE è l’istruzione di stampa) 


La sua struttura è piuttosto pesante. La 
stessa azione può essere svolta da 


CASE mese OF 
1: WRITE (‘gennaio’); 
2 : WRITE (‘febbraio’); 
3: WRITE (‘marzo’); 


12: WRITE (‘dicembre’) 
END: 


in cui viene di volta in volta eseguita 
solo la frase corrispondente al valore 
della variabile mese, detta selettore. 
Diamo infine un’occhiata ai sottopro- 
grammi Pascal, cui si deve gran parte 
della versatilità di questo linguaggio. 
Possono essere di due tipi: funzione e 
procedura. 

La differenza fondamentale fra l’uno e 
l’altro tipo sta nel trasferimento dei ri- 
sultati, che nel primo caso possono es- 
sere uno solo, trasferito per mezzo del 
nome stesso della funzione, mentre nel 
secondo non ci sono limiti al loro nume- 
ro. 

Vediamo un esempio di funzione: 


FUNCTION potenza (numero: REAL; 
indice: INTEGER) : REAL; 
VAR i : INTEGER; 

prodotto : REAL; 
BEGIN 

prodotto:= 1; 

FOR i:= 1 TO indice DO 

prodotto:= prodotto * numero; 

potenza:= prodotto 
END; 


Questa funzione calcola le potenze inte- 


re di qualsiasi numero. Può essere utiliz- 
zata nel programma principale sempli- 
cemente con 


a:= potenza (2.5,6) 


2.5 verrà sostituito al primo parametro 
della funzione, cioè numero, che essen- 
do reale si accorda con il dato. 6 andrà 
invece a sostiuire il secondo parametro, 
indice, di tipo intero. Il risultato, nella 
variabile potenza, sarà trasferito al pro- 
gramma principale. 

All’interno di un sottoprogramma fun- 
zione sono permessi tutti i tipi di struttu- 
re e di variabili. Le variabili stesse sono 
di tre categorie: 

— Di ingresso: servono a portare all’in- 
terno del sottoprogramma i dati prove- 
nienti dal programma principale. 

— Locali: vengono definite all’interno 
del sottoprogramma ed utilizzate inter- 
namente ad esso. 


Queste due categorie di variabili cessa- 
no di esistere al di fuori del loro sotto- 
programma. 

— Globali: sono le variabili del program- 
ma principale che possono essere utiliz- 
zate e modificate anche dai sottopro- 
grammi. 


Le stesse categorie di variabili sono pro- 
prie dei sottoprogrammi procedura, 
con l’aggiunta, però, delle 

— variabili di uscita: nelle procedure ser- 
vono a trasferire i dati dal sottopro- 
gramma al programma principale. 
Una procedura, infatti, è in grado di 
trasferire più dati diversi al programma 
principale. Ad esempio, la procedura 


PROCEDURE 
conversionetempo (seconditotali: 
INTEGER; 
VAR ore, minuti, secondi: 
INTEGER); 


BEGIN 
ore:= seconditotali DIV 3600; 
minuti:= (seconditotali MOD 
3600) DIV 60; 
secondi:= (seconditotali MOD 
3600) MOD 60 
END; 


calcola, a partire da un valore in secon- 
di, il numero di ore, minuti e secondi 
corrispondenti. I parametri di ingresso, 
detti anche parametri di valore, si di- 
stinquono per l’assenza della parola 
VAR davanti a loro. In questo caso 
l’unico parametro di valore è secondito- 
tali. I parametri di uscita, detti parame- 
tri variabili, sono viceversa preceduti 
dalla parola VAR, e sono ore, minuti, 
secondi. 

Per convertire 4700 secondi in ore, mi- 
nuti e secondi occorre scrivere: 


conversionetempo (4700, h, min, sec) 


dove h, min e sec sono variabili dichia- 
rate nel programma principale che do- 
po questa istruzione conterranno rispet- 
tivamente il valore di ore, minuti e se- 
condi. L'operatore MOD, utilizzato nel- 
la procedura vista, calcola il resto della 
divisione fra due numeri interi. 

Se è vero che una procedura può resti- 
tuire più valori, è altrettanto vero che 
può non restituirne alcuno. Consideria- 
mo per esempio la procedura 


PROCEDURE scrivipagina (numeropa- 
gina : INTEGER); 
BEGIN 


WRITELN (“pagina”, numeropa- 
gina) 
END; 


che può essere chiamata all’inizio di 
ogni nuovo foglio di stampa, per creare 
l'intestazione. La parola WRITELN è 
analoga a WRITE, ma a differenza di 
questa va a capo al termine della stam- 
pa. Ogni WRITELN stamperà quindi su 
di una riga diversa. 

Abbiamo detto che con l’uso dei sotto- 
programmi si può realizzare un tipo di 
programmazione modulare. Vediamo- 
ne un esempio. Supponiamo di voler 
realizzare un programma che simuli la 
guida di un’autovettura. Dapprima ne 
stenderemo la struttura: 


lA ILCULTLRA 
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BEGIN 

parti; 

IF giri > massimo THEN 
cambiamarcia; 

ELSE 
accelera; 

guardalastrada; 

IF semaforo= true THEN 
frena 

IF luce= rosso THEN 
mettinfolle; 

REPEAT 
aspetta 

UNTIL luce= verde; 

parti; 


senza preoccuparci delle varie procedu- 
re (parti, cambiamarcia, accelera, guar- 
dalastrada, frena, mettiinfolle, aspetta), 
che corrispondono alle singole azioni. 
Queste le svilupperemo una per una, 
successivamente, e le inseriremo (in 
Pascal i sottoprogrammi normalmente 
vanno collocati davanti al programma 
principale). Una struttura tanto lineare 
consente a chiunque di capire con un 
colpo d’occhio qual è lo scopo del pro- 
gramma. 

Un'ultima cosa che merita di essere no- 
tata, riguardo ai sottoprogrammi, è la 
possibilità di un loro uso ricorsivo. Ri- 
corsivo si dice un programma che ri- 
chiama se stesso. Questa possibilità esi- 
ste anche nel BASIC, ma la disponibili- 
tà, all’interno delle subroutine, di sole 
variabili globali rende difficile il suo uso 
pratico (anche qui, al solito, fa eccezio- 
ne il SuperBASIC, che dispone dell’ap- 
posita istruzione LOCal, utilizzata per 
definire variabili locali all’interno di una 
procedura. N.d.r.). 

Osservate invece con quanta eleganza 
questo può essere fatto in Pascal. La 
funzione che segue calcola il fattoriale 
di un numero qualsiasi. Si dice fattoriale 
di un numero intero N il risultato del 
prodotto 


N*(N-1) * (N-2) * ...(N-N+2)* 1 
fattoriale:= n * fattoriale (n-1) 


Il fattoriale di 5, ad esempio, è 
beh = 120 
FUNCTION fattoriale (n : INTEGER) : 
INTEGER; 
BEGIN 
IF n=0 THEN 
fattoriale:= 1 
EESE 
END; 


Osservate il richiamo, all’interno della 
funzione, della funzione stessa. finché n 
non risulti uguale a 1. A questo punto 
si provoca il ritorno a catena da tutte 
le chiamate ricorsive e si torna al pro- 
gramma principale. 

Questo sistema, anche se può sembrare 
involuto e non intuitivo, è indubbiamen- 
te molto elegante e produce programmi 
più brevi. Confrontate la funzione appe- 
na vista con il suo equivalente non ricor- 
sivo: 


FUNCTION fattoriale (n : INTEGER) : 
INTEGER; 
VAR i : INTEGER 
BEGIN 
i=n 
n:= n-1 
WHILE n> 1 DO 
BEGIN 
i= i*n 
n:= n-1 
END; 
fattoriale:= i 
END; 


e vi renderete conto della differenza. 
Con la certezza di aver solo sfiorato 
quelle che sono le possibilità di questo 
linguaggio ancor oggi insuperato, seb- 
bene dalla sua nascita siano passati più 
di quindici anni, siamo costretti a con- 
cludere. E come si conviene ad ogni 
conclusione, tentiamo un bilancio. 

Se per programmi brevi e semplici può 
risultare un po’ prolisso, con tutti quei 
begin, end e dichiarazioni di variabili, il 
Pascal è senz’altro uno strumento inso- 
stituibile nella stesura di programmi lun- 
ghi e complessi, che rende chiari e leggi- 
bili, oltre a favorire enormemente il ri- 
conoscimento e la correzione degli erro- 
ri (chi non ne fa alzi la mano...). 

Per lo Spectrum esiste un compilatore 
Pascal (si tratta infatti di un linguaggio 
compilato) estremamente valido, pro- 
dotto dalla Hisoft, denominato Pascal 
4. Si tratta di una versione estremamen- 
te completa e standard di questo lin- 
guaggio, che consente l’uso dei micro- 
drive. La velocità di esecuzione di un 
programma compilato è mediamente 
40 volte superiore a quella dell’equiva- 
lente scritto in BASIC. 

Il Pascal 4 viene venduto, completo di 
un package per turtle graphics, al prez- 
zo di 25 sterline, circa 60000 lire. Per 
acquistarlo, o per maggiori informazio- 
ni, rivolgetevi a 


Hisoft 

180 Hight Street North 
Dunstable, Debs. LU6 1AT 
tel: (0582) 696421 


GRUPPO 
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‘sull'informatica e la sua 
) ione non può prescindere da 
una conoscenza di base di questo 
linguaggio. Questo lo scopo del li- 
bro: permettere anche a chi ha sol- 
tanto una cultura di base, di capire 
che cos'è il BASIC e come si usa. 

Cod. 507B Pag. 216 Lire 19.500 
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MATEMATICA E 
COMMODORE 64 


“Tutte le funzioni matematiche dispo- 
Nibili sul C64 sono qui descritte, ed il 
loro uso è illustrato con programmi 
che possono essere utilizzati dal let- 
tore all’interno dei suoi, per partico- 
lari applicazioni. 

< Il libro contiene anche informazioni e 
programmi su altri argomenti, come 
i codici e la crittografia, i numeri ca- 
suali, le serie, la trigonometria, i nu- 
meri primi e l’analisi statistica dei 
dati. 


—_ Con cassetta 


Cod. 570D Pag. 160 Lire 24.000 


lere i “segreti 


are notevolmente le proprie 
capacità di programmatore. 
“programmi presentati vanno dagli 
cade più famosi, tra cui il celebre 
“Spectrum Invaders” ai programmi di 


‘ utilità più interessanti, dai giochi 


d'azzardo ai programmi didattici, dai 
programmi funzionali a quelli di ma- 
tematica e di giochi di strategia. 

Con cassetta 
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ADVENTURE E 
COMMODORE 64 


Un manuale per ideare e utilizzare 
programmi di Adventure basati 
esclusivamente sul testo. 

Una progettazione modulare del pro- 
gramma rende più facile la compren- 
sione della struttura. L'abilità nella 
programmazione avrà modo di emer- 
gere durante la costruzione graduale 
dell’Adventure, per modificare il pro- 
gramma dimostrativo, o addirittura 
per costruirne uno nuovo. 

Con cassetta 
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Rita Bonelli 


COMMODORE 16 
PER TE: BASIC 3.5 


E un libro di introduzione al BASIC 
C16 con il classico taglio didattico 
Bonelli. Adatto per la Scuola media 
inferiore e per chi non conosce l’in- 
formatica. 

La cassetta allegata al libro contiene 
diverse lezioni, una per ogni capito- 
lo, che devono essere lette prima del 
capitolo relativo. 

Con cassetta 
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Estendiamo le 


possibilità 


della nostra: 


interfaccia 
con un 


di Marcello Spero 


convertitore analogico/digitale s...... ar 


Dopo aver messo insieme il no- 
stro convertitore analogico/ 
digitale, vediamo come utilizzar- 
lo. 


piro di tutto, però, sarà bene ac- 
certarsi del suo buon funzionamen- 
to. Infatti la volta scorsa ci siamo limita- 
ti, per motivi di spazio, alla descrizione 
di un frettoloso collaudo, che, pur met- 
tendo in evidenza eventuali grossi pro- 
blemi, non era in grado di verificare il 
perfetto funzionamento dell’unità. 
Riprendiamo perciò il collaudo. Questa 
volta, però, useremo una routine in lin- 
guaggio macchina, che ci consentirà di 
misurare il tempo di carica del conden- 
satore con precisione enormemente 
maggiore. 

Il programmino BASIC usato l’altra vol- 
ta, infatti, oltre ad avere una frequenza 
di conteggio (cioè il tempo fra un incre- 
mento del contatore ed il successivo) 
piuttosto bassa, non può garantire 
un’adeguata regolarità nel conteggio 
stesso. Questo a causa delle interruzioni 
introdotte venti volte al secondo, per 
consentire la lettura della tastiera e l’ag- 
giornamento del timer interno. Queste 
interruzioni non possono essere inibite 
utilizzando il BASIC, sia perché non c’è 
modo di fare ciò con un comando BA- 
SIC sia perché il BASIC stesso non è in 
condizione di funzionare, se le interru- 
zioni sono disabilitate. Per poter agire 
in assenza di interruzioni è perciò indi- 
spensabile operare in linguaggio mac- 
china, tornando al BASIC solo dopo 
aver ripristinato il loro funzionamento 
normale. 

Nel listato 1 vedete l’Assembly della 
routine. Si tratta sostanzialmente delle 
medesime operazioni svolte dal pro- 
gramma BASIC: 


— invio dell'impulso di inizio carica (det- 
to “impulso di trigger”); 


— controllo ad intervalli regolari dello 
stato della linea di ingresso che indica 
“carica in corso” o “carica terminata”. 


Il ciclo prosegue, incrementando ad 
ogni giro il valore della coppia di registri 
bc, fino a quando la linea di ingresso 
non viene trovata a livello basso. A que- 
sto punto bc conterrà il numero di cicli 
eseguiti. 

Come potete vedere, la prima operazio- 
ne compiuta dalla routine è 


di 


cioè “disable interruptions”, ovvero la 
disabilitazione delle interruzioni. In que- 
sto modo possiamo essere certi che tutti 
i cicli impiegheranno lo stesso tempo ad 
essere eseguiti. D'altra parte, l’ultima 


operazione prima del ritorno al BASIC. 


è 
ei 


cioè “enable interruptions”, ovvero la 
riabilitazione delle interruzioni. Avendo 
utilizzato come contatore la coppia bc, 
il cui valore viene dato alla funzione 
USR al momento del ritorno al BASIC, 
basterà una semplice 


PRINT USR... 


per far eseguire la routine e conoscere 
il tempo di carica, naturalmente non 
espresso in secondi, ma in cicli. 

A questo proposito è importante notare 
come non sia assolutamente necessario 
conoscere il tempo impiegato dal com- 
puter per eseguire un ciclo: ci basta sa- 
pere che è sempre lo stesso. Un oppor- 
tuno calcolo, eseguito anch’esso dal 
computer per mezzo di un programmi- 
no che vedremo più avanti, stabilirà il 
rapporto 


numero cicli/valore grandezza misura- 
ta 


diverso a seconda del tipo di resistenza 
variabile applicato al convertitore. 
Una volta caricato in memoria il codice 
macchina della routine, che trovate nel 
listato 2 e che è completamente riloca- 
bile (indipendente cioè dalla posizione 
in memoria in cui lo metterete), ripetia- 
mo il collaudo, utilizzando lo stesso po- 
tenziometro o gruppo di resistenze che 
ci erano servite per la prima prova. Per 
coloro che avessero dubbi sulle modali- 
tà di caricamento del codice macchina, 
ecco un metodo super rapido: 


10 INPUT “indirizzo”, i 


20 CLEAR i1 

30 LET i=PEEK 23730 + 256 * PEEK 
23731 

40 FOR h=i + 1 TO i + 21 

50 INPUT k 

60 POKE i,k 

70 PRINT i,PEEK i 

80 NEXT i 


Per leggere il risultato dei conteggi pos- 
siamo utilizzare queste poche linee di 
programma: 


10 OUT 223, 128 
206PRINIWATEOMO:USRESSAOI 
30 GO TO 20 


dove, naturalmente, ai puntini sostitui- 
remo l’indirizzo di inizio della routine di 
conteggio. In questo modo disporremo 
di un'informazione continuamente ag- 
giornata. 

L’istruzione 


©U/223-4128 


serve a mettere il convertitore nel giu- 
sto stato prima dell’inizio delle letture. 
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Senza questa istruzione la prima lettura 
darebbe un valore completamente 
“sballato”. 

Colleghiamo ora una delle resistenze 
(che dovrebbero essere di valore com- 
preso fra i 100000 ed i 10000 ohm) od 
il potenziometro (possibilmente da 
100000 ohm). Nel caso del potenziome- 
tro ricordate che va collegato in modo 
da funzionare come una resistenza va- 
riabile e cioè utilizzando il contatto cen- 
trale ed uno dei laterali, lasciando l’al- 
tro laterale non collegato. 

La prima lettura la faremo con la resi- 
stenza di valore più elevato, o con il 
potenziometro completamente ruotato 
dal lato del contatto non collegato. Dia- 
mo RUN e vedremo apparire sullo 
schermo un numero, probabilmente di 
valore elevato (da 20000 a 200000, a 
seconda del valore della resistenza e del 
potenziometro, e del condensatore im- 
piegato). Già questo dà l’idea della 
maggior precisione ottenuta con questo 
metodo. Ma la vera sorpresa è però 
un’altra: il numero non è stabile, ma 
varia continuamente, in modo più o me- 
no ciclico. Queste fluttuazioni, messe in 
evidenza dalla grande velocità del con- 
teggio, rappresentano il risultato delle 
varie imprecisioni dell’apparecchio, do- 
vute alla tolleranza del condensatore, 
alle sue variazioni con la temperatura, 
alla sua non perfetta scarica e così via. 
Se avete fatto le cose per bene, comun- 
que, queste fluttuazioni dovrebbero es- 
sere percentualmente così basse (circa 
lo 0.2 per cento) da risultare irrilevanti 
per le nostre esigenze. 

Dopo aver preso nota del valore medio 
fra quelli letti sullo schermo, procedia- 
mo. Se stiamo utilizzando delle resisten- 
ze, passiamo ad una di valore inferiore; 
nel caso del potenziometro portiamolo 
invece a metà corsa. Nel secondo caso 
non sono necessari calcoli: abbiamo di- 
mezzato la resistenza, e quindi il nume- 
ro sullo schermo dovrà essere circa la 
metà del precedente. Con le resistenze, 
invece, occorre risolvere una semplice 
proporzione: 


VilAaGli=2V211C2 


dove VI1 è il valore in ohm della prima 
resistenza utilizzata e C1 il valore medio 
fra quelli letti, che ci eravamo annotato. 
V2 è invece il valore, sempre in ohm, 
della seconda resistenza. C2 lo dobbia- 
mo ottenere risolvendo la proporzione, 
cioè, come sappiamo tutti, eseguendo 


C2 = C1* V2/VI1 


Confrontiamo adesso il valore ottenuto 
con quello che leggiamo sullo schermo; 
la differenza deve essere poca (meno è, 
meglio è). 

Se questo primo controllo è andato be- 
ne, passiamo ad un secondo esame, 
quello della sensibilità alla temperatu- 
ra. 

Con la resistenza collegata, ed il pro- 
gramma in funzione, provate ad appog- 
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fig. 1: schema di montaggio per NTC 


2 
À: MORSETTO + 
B « MORSETTO - 


fig. 2: schema di montaggio per LED 


Tai 
4400 a 
4N 4149 
4N 4149 
B 


A £ MORSETTO + 


B = MORSETTO - 


fig. 3: schema di montaggio per diodi 


giare due dita sul condensatore, in mo- 
do da scaldarlo. Se, dopo qualche istan- 
te, il valore che compare sullo schermo 
inizia a spostarsi, è segno che il conden- 
satore che avete montato è piuttosto 
sensibile alla temperatura, cosa di cui 
dovrete tener conto in futuro. In questa 
prova i risultati più evidenti si ottengono 
con resistenze di valore elevato (ovvia- 
mente: infatti la stessa variazione per- 
centuale sarà quantitativamente più 
elevata). 

Durante tutte queste prove potrà capi- 
tarvi di fissare male uno dei morsetti e 
perciò non avere il necessario contatto. 
In questo caso il programma si blocca, 
poiché il condensatore non riesce a cari- 
carsi e la routine di conteggio prosegue 
all’infinito. Non fatevi prendere dal pa- 
nico, e non spegnete il vostro Spectrum; 
esibitevi invece in un piccolo numero 
acrobatico. Con una mano premete il 
BREAK (un dito sul CAPS SHIFT ed 
un altro sullo SPACE); con l’altra mette- 
te in corto per un istante i due morsetti, 
servendovi di un qualsiasi strumento in 
ferro, cacciavite od altro. Come per mi- 
racolo il programma si fermerà. Infatti 
avremo provocato la rapida carica del 
condensatore e quindi l’uscita dalla rou- 
tine. La messa in corto dei morsetti, 
come pure il loro collegamento con resi- 
stenze di valore troppo basso (al di sotto 
dei 1000 ohm), è comunque una pratica 
da riservare per le emergenze e da far 
durare non più di un istante; altrimenti, 
addio 555. 

Esauriti tutti questi noiosi collaudi pro- 
viamo a realizzare qualcosa di concreto. 


RIVESTIMENTO 
Do DI OLLANTE 


fig. 4: costruzione della sonda 


Come primo tentativo cercheremo di ot- 
tenere una lettura digitale della tempe- 
ratura. 

Volendo stabilire il grado di precisione 
che’ ci prefiggiamo, direi che il decimo 
di grado è una ragionevole via di mezzo. 
Uno strumento che ci dia un’informazio- 
ne sulla temperatura con la precisione 
di un decimo di grado, pur non-essendo 
a livello fantascientifico, potrà essere 
utile in molti campi, dalla termostatazio- 
ne di un acquario o di un bagno fotogra- 
fico alla misurazione della febbre. 

Ciò di cui disponiamo è uno strumento 
in grado di trasformare il valore di una 
resistenza in un numero, a questa diret- 
tamente proporzionale. Dobbiamo per- 
ciò trovare qualcosa che varii la propria 
resistenza con la temperatura. Di com- 
ponenti elettronici con questa proprietà 
ce ne sono parecchi; noi ne prendiamo 
in esame tre tipi, con precisione e prezzi 
diversi. Si tratta comunque in ogni caso 
di prezzi irrisori, dell'ordine delle centi- 
naia di lire. 

— NTC (Negative Temperature Coeffi- 
cient): si tratta di resistenze il cui valore 
varia in modo lineare (o per lo meno 
così dovrebbe essere) ed inverso alla 
temperatura. In pratica, più alta è la 
temperatura, più basso è il valore del- 
INTC in questione. 

Sono caratterizzate dal loro valore a 25 
gradi. Per il nostro uso le più indicate 
sono quelle da 47000 ohm. In ogni caso 
non scendete sotto i 5000 ohm. Even- 
tualmente potete comporre il valore de- 
siderato ponendo in serie due o più 
NTC, possibilmente dello stesso tipo e 


valore. In figura 1 vedete il modo di 
collegare ai morsetti una o più NTC. 
Trattandosi di componenti piuttosto 
vecchi, un tempo molto usati nei televi- 
sori ed oggi caduti in disgrazia, la loro 
reperibilità potrebbe essere problemati- 
ca. Eventualmente considerate la possi- 
bilità di cercarli presso riparatori TV o 
rivenditori di componenti elettronici 
usati (sovente le due attività sono uni- 
te). 

— LED: questi componenti, noti a tutti 
come emettitori di luce, in realtà funzio- 
nano anche come resistenze variabili 
con la temperatura. Provate con due 
LED gialli posti in serie ad una resisten- 
za da 1200 ohm, per evitare di bruciar- 
li. La figura 2 illustra il modo di montare 
il tutto. 

La precisione raggiungibile in questo 
modo non è elevata, ma in compenso 
la resistenza posta in serie garantisce 
un'adeguata sicurezza in tutte quelle 
applicazioni in cui è ipotizzabile un dan- 
neggiamento della sonda misuratrice, 
con conseguente corto circuito. In que- 
sto caso la resistenza, posta vicino ai 
morsetti e quindi lontano dalla sonda, 
limita la corrente di corto circuito. Un 
altro vantaggio può essere il fatto che i 
LED si illuminano quando viene data 
loro tensione. Eventuali guasti sono per- 
ciò immediatamente evidenti, manife- 
standosi con lo spegnimento dei LED. 
— Diodi: un diodo è un componente elet- 
tronico che possiede la proprietà di con- 
sentire il passaggio della corrente elet- 
trica in una sola direzione. Questa ca- 
ratteristica non è comunque di grande 
importanza nell’uso che dobbiamo far- 
ne noi. Importante è invece che esistano 
diodi che producono una caduta di ten- 
sione proporzionale alla temperatura 
cui sono sottoposti. Si tratta in altre pa- 
role di un comportamento molto simile 
a quello degli altri due componenti ap- 
pena visti, ma la linearità è decisamente 
superiore. Il diodo tipo 1N4149, molto 
indicato per il nostro uso, presenta in- 
fatti una linearità pressoché perfetta 
per temperature comprese fra -50 +50 
gradi centigradi. Niente male, no? 

Il suo comportamento è inverso; più si 
alza la temperatura, più corrente passa 
attraverso il diodo. 

Anche qui è necessario utilizzare due 
diodi in serie, come pure porre loro in 
serie una resistenza da 4700 ohm per 
limitare il flusso di corrente. La figura 
3 illustra l’esatto modo di collegare ai 
morsetti i diodi e la resistenza. La pre- 
senza della resistenza realizza, come già 
nel caso precedente, una efficace prote- 
zione contro gli eventuali cortocircuiti 
da rottura della sonda. 
Riassumendo, le alternative proposte 
sono tre: NTC, da acquistare in base al 
valore (che è meglio sia elevato), LED 
gialli, di tipo qualsiasi (due in serie e 
resistenza in serie), diodi 1N4149 (sem- 
pre due in serie e resistenza in serie). 
Per le prime prove vi consiglio comun- 
que di provare con un NTC, se lo trova- 
te. Si tratta infatti del componente più 
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robusto dei tre, anche se la sua precisio- 
ne lascia a desiderare. 

Per usare in pratica questi elementi co- 
me misuratori di temperatura occorre 
provvedere al loro isolamento. E infatti 
assurdo pensare di poter immergere in 
acqua un componente elettronico e 
quindi aspettarsi che funzioni ancora! 
Per questo dobbiamo realizzare una 
sonda, impermeabile all'acqua ed agli 
agenti atmosferici, ma non troppo isola- 
ta termicamente, per non rendere lun- 
ghi i suoi tempi di reazione. Una buona 
soluzione può essere quella che vedete 
in figura 4. L’elemento sensibile (o la 
coppia di elementi sensibili) viene salda- 
to all’estremità di uno spezzone di cavo 
coassiale per antenna TV, o schermato 
per usi radiofonici. Si potrebbe benissi- 
mo usare del normale filo elettrico, ma 
la guaina esterna del cavo coassiale o 
schermato crea un ottimo supporto per 
l’elemento sensibile, proteggendone an- 
che i terminali da urti e abrasioni. Dopo 
aver fatto rientrare il più possibile le 
saldature all’interno della guaina (atten- 
zione a non metterle in corto l’una con 
l’altra! Eventualmente ricopritene una 
con del nastro isolante), ricopriamo tut- 
to con del collante impermeabile, tipo 
Bostik, facendo attenzione che non re- 
stino fessure scoperte in cui l’acqua 
possa infiltrarsi. Nel caso dei LED e dei 
diodi, infine, saldiamo all’altra estremi- 
tà del cavo la resistenza prevista; servi- 
rà anche a marcare il polo positivo del 
cavo (se invertite i' collegamento, la re- 
sistenza della sonda sarà sempre altissi- 
ma e il sistema non funzionerà). 

La lunghezza del cavo non è critica, an- 
che se non sono consigliabili i cavi chilo- 
metrici. Infatti la resistenza introdotta 
dal cavo stesso è costante e perciò non 
influenza le misurazioni. 

Ora che abbiamo preparato la sonda 
possiamo collegarla al convertitore per 
vedere come funziona. Fissiamo quindi 
gli estremi opposti del cavo ai morsetti, 
facendo attenzione alla polarità nel ca- 


listato 1: Assembler della routi- 
ne di conteggio 


ROUTINE DI CONTEGGIO 


** procedura Thi 
**Ndreinizio tti 
di 

1d bc,00 
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REM:HW 


so di LED e diodi. 

La medesima routine di conteggio ed il 
programmino usato per la lettura dei 
valori andranno benissimo anche qui. 
Diamo quindi RUN, e leggeremo sullo 
schermo dei valori senz’altro più bassi 
di quelli letti durante il collaudo. Se 
adesso provocate una variazione di 
temperatura nella sonda, per esempio 
stringendola fra due dita, vedrete im- 
mediatamente una decisa diminuzione 
dei valori che appaiono sullo schermo. 
Viceversa, rilasciandola se ne provoca 
il raffreddamento, con conseguente ri- 
torno a valori più elevati. 

Dopo aver fatto un paio di esperimenti 
di questo tipo, per accertarci che la son- 
da sia in perfetto stato, passiamo alla 
taratura vera e propria. 

Muniamoci di due bicchieri, uno conte- 
nente acqua fredda ed uno acqua bol- 
lente, nonché di un termometro a mer- 
curio piuttosto preciso (quelli per la feb- 
bre vanno bene, anche se la loro escur- 
sione termica è limitata). 

Carichiamo ora il listato 3. Si tratta di 
un programma che, oltre a contenere il 
codice macchina della routine di conteg- 
gio (eliminando così la necessità di cari- 
carla separatamente), effettui il calcolo 
della retta di taratura sulla base di due 
punti noti. 

In pratica, per due volte noi portiamo 
la sonda ad una determinata tempera- 
tura e diamo al computer il valore in 
gradi che leggiamo sul termometro a 
mercurio. Il computer fa i suoi calcoli, 
ricava una formula di conversione e di- 
venta in grado di darci il valore in gradi 
centigradi direttamente, per ogni lettu- 
ra della sonda. 

Il processo si svolge in tre fasi: 


— raccolta di un certo numero di dati 
(100 nel nostro caso) e calcolo della loro 
media. In questo modo si ottiene una 
compensazione delle fluttuazioni casua- 
li; 

— ottenimento dall’esterno della tempe- 


** impulso di inizio ** 


ld a,0 

out (223),a 
nop 

ld a,l128 
out (223) a 


** e'carico? ** 
** si'=fine routine ** 
** no=incrementa bc ** 
** e prosegui badia: 


Estendiamo la possibilità 
della nostra interfaccia 
con un convertitore 
analogico/digitale 


ratura corrispondente; 

— ripetizione per una seconda tempera- 
tura; 

— applicazione della formula: 


T=:T1+{CI--X)\/MCL-C2):/T2 
=) 


dove T1 e T2 sono le due temperature 
fornite dall’esterno in corrispondenza 
dei valori C1 e C2 rilevati dal converti- 
tore. 

X è invece il valore letto di volta in volta 
dal convertitore, valore che viene tra- 
sformato in una misura di temperatu- 
ra. 

Immergiamo termometro e sonda nel 
bicchiere con l’acqua fredda e attendia- 
mo quache minuto. Il programma visua- 
lizza i dati in arrivo dal convertitore; 
attendiamo che questi si stabilizzino in- 
torno ad un valore e quindi premiamo 
un tasto. Apparirà in input la richiesta: 
T1. Diamo il valore letto sul termome- 
tro e premiamo ENTER. 

Versiamo un po’ dell’acqua calda del- 
l’altro bicchiere, in modo da innalzare 
la temperatura del primo. Mescoliamo 
e ripetiamo le medesime operazioni. A 
questo punto sullo schermo inizieranno 
ad apparire i valori di temperatura. 
Qualche ulteriore prova, sempre con il 
sistema dell’acqua calda, servirà per 
controllare l’effettiva precisione. 

E bene comunque tener presenti due 
cose, a scanso di delusioni: 

— T1 e T2 devono essere ai due limiti 
dell’intervallo di temperatura in cui in- 
tediamo usare lo strumento; 

— usando NTC o LED è bene che que- 
sto intervallo non sia superiore a 15-20 
gradi, poiché la loro linearità non è co- 
stante in grandi intervalli. Con i diodi il 
problema non si pone. 

La prossima volta realizzeremo insieme 
un completo sistema di termostatazione 
elettronica, dagli usi più diversi. A pre- 
sto! 


LOOP; in a,(223) 
or a 

jr z,FINE 

inc bc 

jr LOOP 


** procedura na 
** di uscita ** 


FINE;ei 
ret 


listato 2: codice macchina della 
routine di conteggio 


243,00) MIMO MO, 62) 
0f,2:1517,:2/23760271281 
201, 223/7209)2237010880 
40, (003003, 0242487 


REM:HW 


251107201 
listato 3: programma di taratura e conversione 
versione per ZX Spectrum 16K/48K 
110 IF INKEYS="" THEN GO TO 90 
IZ0OEGES 
(SORINPUT ene) ee) 
10 REM 140 LET m=0 
150 PRINT AT 10,5; FLASH IR "CALCOLO 
i VALORE MEDIO" 
programma di taratura 160 FOR h=1 TO 100 
e conversione 170 LET m=m+USR 65001 
180 NEXT h 
190 LET v(i)=m/100 
200 NEXT i 
ZIORrErRsde=t(2)0t(01) 
20 CLEAR 65000 220 LET dv=v(1)-v(2) 
30 FOR i=65001 TO 65022 230 LET uv=dv/dt 
40 READ a 240 LET temp=t(1)+(v(1)-USR 65001)/u 
50 POKE i,a Vv 
60 NEXT i 250 LET temp=INT (temp*10)/10 
70 DIM t(2): DIM v(2) 260 PRINT AT 10,10;temp;" Cc" 
80 FOR i=1 TO 2 270 GO TO 200 
90 PRINT AT 10,10;USR 65001;" " 280 DATA 243,1,0,0,62,0,211,223,62,1 
100 PRINT #1;"un tasto per passare o 2/87/2110, 2:237,,211977223/,1/83740,,3 3724 
L'tre" r248,251,201 
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LA COMUNICAZIONE 
CAMBIATA 


Questo libro vuole offrire una occa- 
sione a tutti i suoi lettori per analizza- 
re, scoprire e potenziare le proprie 
capacità comunicative e divenire pro- 
tagonisti reali di una ampia trasfor- 
mazione in corso, di cui uno degli 
aspetti più evidenti è costituito dall’e- 
Spandersi progressivo delle tecno- 
logie. 


Cod. 538P Pag. 112 Lire 10.500 


Arthur Naiman 


WORD STAR 


Perché un computer, anche di cate-* 


goria micro, sia utile nell’attività di 
ufficio è essenziale che permetta 
anche di effettuare l'elaborazione dei 
testi, con tutte le funzioni che ciò 
comporta. | prodotti software a ciò 
destinati sono oggi moltissimi ma 
solo alcuni emergono per completez- 
za e flessibilità: fra questi Wordstar è 
sicuramente uno dei più riusciti. 
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ORDINE 
MINIMO 
L. 50.000 


Giulio Carducci 

LE APPLICAZIONI 
DEL COMPUTER 
NELL’UFFICIO 
MODERNO 


Questo libro vuole essere un’introdu- 
zione all’informatica e, nel contem- 
po, una guida all’utilizzo consapevole 
dello strumento del giorno, il perso- 
nal computer, nell’ufficio moderno e 
nello studio professionale. È rivolto 
pertanto, ad un vasto pubblico: ad- 
detti ai vari settori dell’azienda, qua- 
dri, dirigenti, ingegneri, architetti, 
professionisti in genere. 


Cod. 407H Pag. 132 Lire 23.000 


Michael Browne 


UNITÀ A DISCHI PER 
MICROCOMPUTER 


Il libro, destinato a lettori con una 
buona conoscenza di base dell’uso di 
un calcolatore e del linguaggio BA- 
SIC, descrive il funzionamento dell’u- 
nità a dischi di un personal computer 
e il significato dei comandi relativi, 
con particolare attenzione per le di- 
verse tecniche di gestione dei file su 
disco. 

Il libro è arricchito di diversi pro- 
grammi esempio in BASIC Commo- 
dore 4.0, relativi alle diverse tecniche 
di organizzazione e gestione dei file. 
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Mauro Salvemini 


URBANISTICA 
E INFORMATICA 


Sempre più vaste sono le applicazio- 
ni dell'informatica in ogni settore del- 
la vita e del lavoro, e in particolare 
quelle della computer grafica. Nean- 
che mestieri e professioni con una 
origine antica come l’architetto o 


‘ l'urbanistica si “salvano” dall’onda 


dell’informatica. 

Un entusiasta utilizzatore di quest’a- 
rea culturale racconta in questo libro 
per i colleghi e gli studenti di archi- 
tettura e di urbanistica tutti i vantaggi 
e gli avanzamenti possibili nella pro- 
gettazione e lo studio di nuovi edifici, 
complessi edilizi o urbani grazie alla 
computer grafica. 
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| Novità !! Lo Spectrum maggiorato u 
I 


Trasforma il tuo Spectrum 
in Spectrum + 


sii 


Edit Capslock 


Delete 


Extended È 
mode SS 


Caps shift Ri n 


Punto | 
e virgola 


Space bar 


Full stop 


Virgola 


Apice Controllo cursore 


Ecco una novità stimolante per i possessori di Spectrum: 
il Kit originale Sinclair che promuove lo Spectrum al 
grado superiore. 

Non si richiede vasta esperienza. Basta saper saldare 
pochi fili. 

Nel Kit sono contenute chiare istruzioni in italiano. 


La tastiera dello Spectrum + 

Le dimensioni dello “Spectrum +,, sono 320x 1 50x40. 

La tastiera, di tipo dattilografico, ha solidi tasti antiurto. 

Il suo uso è morbido e ideale per la scrittura al tocco, per 
il word processing, per i programmi di simulazione e 

| programmi avanzati. 

Vi sono 58 tasti, di cui 17 rappresentano delle novità. 

| programmatori avranno la gradita sorpresa di trovare i 
tasti della punteggiatura e, a parte, i tasti “shift, per i grafici 
e gli “extended modes, Il tasto di reset consente di 
cancellare un programma dalla memoria del computer 
senza scollegare l'alimentazione. 


peggg neo 


Tastiera professionale Sinclair con 

17 tasti extra. 

è Si usa come una normale 
macchina da scrivere. 

e Compatibile con tutto il software 

e le periferiche Spectrum. 

Completo di una guida 

3 di 80 pagine più una cassetta 

È dimostrativa. 


simcrl=sir” 


Lo Spectrum maggiorato 
Naturalmente il computer di grado superiore accetta 
tutte le periferiche del Sinclair System-Interface |, 

i Microdrives, eccetera, come pure tutto il software 
Spectrum. 

| nuovi software e le nuove periferiche 
Spectrum saranno progettati tenendo 
conto dello Spectrum +, cosicché lo 
Spectrum accresciuto di grado avrà 
nuove capacità e potenziale nuovo per 
il futuro, oltre ad essere stilisticamente 
fantastico!!! 


Il Kit contiene le istruzioni per 
l'assemblaggio, il manuale e la cassetta 
«demo didattica» in italiano. 


A DIVISION OF G.B.C. 


In vendita presso i rivenditori specializzati 


ZX Spectrum 
Expansion System 


L’alternativa della Sinclair ai floppy disc 


Lo ZX Spectrum Expansion System contiene: 


BI Uno ZX Microdrive - Che amplia la possibilità dello ZX Spectrum in quei settori, 
come quelli della didattica e delle piccole applicazioni gestionali, dove è necessaria 
una veloce ricerca delle informazioni memorizzate su un supporto magnetico. 

HE Una ZX Interface 1 - Indispensabile per il collegamento dello ZX Microdrive. 
Incorpora una interfaccia RS 232 e un sistema di collegamento in rete locale. 

BM Quattro cartucce Microdrive comprendenti un programma di: 
®@ \ord processor «Tasword Secondo» 

e Masterfile filing system 
e inventore di giochi 
® Le formiche giganti 

i Un programma dimostrativo del Microdrive 

Mi Documentazione per il collegamento, il funzionamento e altre descrizioni tecniche. 

HI Cavi di collegamento allo ZX NET che può collegare 
fino a 64 computer ZX Spectrum o QL. 


In vendita presso 
i rivenditori specializzati 


L’Assembly 


di Marcello Spero 
Seconda parte 


Un breve riepilogo e nuovi passi 
avanti in questa puntata del no- 
stro corso di l/m. 


Ci siete ancora tutti? Possiamo pro- 
seguire? Se qualcosa non vi è chia- 
ro, non vi scoraggiate: procedendo nel- 
la nostra esplorazione del linguaggio 
macchina riprenderemo più e più volte 
gli argomenti già trattati. 

Proprio per dimostrare le nostre buone 
intenzioni facciamo rapidamente il pun- 
to su quanto abbiamo già visto. 

Il linguaggio macchina, si è detto, è 
composto da operazioni molto elemen- 
tari, che perciò vanno utilizzate in gran 
numero per eseguire procedure appa- 
rentemente modeste, che in BASIC 
avrebbero richiesto non più di un paio 
di istruzioni. 

Perché usarlo, allora? 

Semplice: perché ci consente di fare co- 
se che in BASIC non potremmo nemme- 
no sognarci di ottenere, e di farle molto 
più in fretta. 

Le operazioni possibili in linguaggio 
macchina possono essere grossolana- 
mente suddivise in due grandi catego- 
rie: trasferimenti di dati e modificazioni 
di dati. 

Nella prima annoveriamo alcune fra le 
operazioni che abbiamo imparato, quali 
il trasferimento in un registro di un dato 
facente parte dell’operazione stessa, il 
trasferimento di un dato dalla memoria 
ad un registro 


ld <indirizzo>, <registro> 
o viceversa 
ld <registro>, (indirizzo) 


e il trasferimento di un dato da un regi- 
stro all’altro 


ld <registro>, <registro> 


Il trasferimento dalla memoria ad un 
registro ed ovviamente il suo inverso, 
cioè da un registro alla memoria, può 
avvenire in modo diretto o indiretto. 


: 


y 


ES RAEE 


Siro È no irta si si 
Nel primo caso il valore dell’indirizzo 
della locazione di memoria interessata 
è contenuto nei codici dell’operazione 
stessa 


ld <registro>, (indirizzo) 


Nel secondo caso tale indirizzo è conte- 
nuto invece in un registro 


ld <registro, (indirizzo) 


e può quindi essere modificato secondo 
le esigenze, proprio come si farebbe con 
un dato qualsiasi. 

La seconda categoria comprende inve- 
ce tutte quelle operazioni che modifica- 
no i dati, rendendoli cioè diversi da co- 
m’erano. 

Possono coinvolgere un solo registro, 
come nel caso di 


inc <registro> 


e 


FITENI ian - nige r* i 


dec <registro> 


che abbiamo già visto, o due registri, 
come nel caso di 


add <accumulatore>, <registro> 


che vedremo tra poco, o addirittura di- 
rettamente la memoria, come vedremo 
in seguito. 

I più attenti avranno notato che ci sono 
delle operazioni, una delle quali abbia- 
mo già visto, che non possono ricadere 
in alcuna delle due categorie. Si tratta 
dei salti. 

Di questi abbiamo già visto 


djnz < distanza > 
che abbiamo paragonato ad un ciclo 
FOR...NEXT 


del BASIC ed usato come tale. Si tratta 
per la precisione di un salto relativo (il 
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cui punto di arrivo viene cioè calcolato 
sulla base del punto di partenza) condi- 
zionato. La condizione è che il contenu- 
to del registro b sia diverso da 0. 
Esistono molti altri tipi di salto, condizio- 
nati e non, relativi ed assoluti ( il cui 
punto di arrivo è cioè indipendente dal 
punto di partenza), che prenderemo 
gradualmente in esame. 

Abbiamo visto infine come sia necessa- 
rio porre i codici numerici, che rappre- 
sentano il linguaggio macchina vero e 
proprio (le sigle letterali usate per una 
più facile comprensione umana rappre- 
sentano infatti l’Assembly del linguag- 
gio stesso), in un punto sicuro della me- 
moria. Per creare un angolo “ad hoc” 
abbiamo imparato a spostare la RAM- 
TOP del sistema, facendo credere al 
computer che la memoria sia meno di 
quanto non è in realtà. 

Dopo aver collocato al loro posto i codi- 
ci, con un semplice programmino BA- 
SIC, abbiamo visto come farli eseguire 
per mezzo della funzione BASIC 


USR indirizzo 


Condizione necessaria affinché, una vol- 
ta terminata la routine in linguaggio 
macchina, l'esecuzione torni al BASIC 
è che al termine di questa vi sia il codice 
dell’operazione 


ret 


che altro non è che un salto all’indirizzo 
abbandonato al momento del trasferi- 
mento dell’esecuzione al linguaggio 
macchina. Il valore di questo indirizzo 
è stato infatti conservato, nel modo che 
vedremo. 

Utilizzando il linguaggio macchina non 
esiste protezione dagli errori, con con- 
seguenti messaggi: un codice sbagliato 
provoca quasi sempre _la perdita del 
controllo del sistema. E quello che si 
usa chiamare “blocco” del sistema, ma 
in realtà non si blocca proprio niente: 
vengono semplicemente eseguite ope- 
razioni casuali ed imprevedibili, dovute 
ad una errata interpretazione dei codici. 
In questi casi l’unica cosa da fare è to- 
gliere la corrente. 

Ed eccoci al primo passo avanti di que- 
sta puntata. 

Finora abbiamo privilegiato, nel nostro 
studio, le operazioni di trasferimento. 
Senza di esse, infatti, non sarebbe possi- 
bile realizzare nulla, in linguaggio mac- 
china. A questo punto, però, è necessa- 
rio approfondire la nostra conoscenza 
delle operazioni di manipolazione dei 
dati. 

Per prime vediamo le operazioni di tipo 
aritmetico. Oltre all'incremento e al de- 
cremento, già viste, esistono natural- 
mente le operazioni di addizione e sot- 
trazione. 

Ad essere sommato o sottratto può es- 
sere un dato od il contenuto di un regi- 
stro, ma con una regola fissa: ciò che 
viene sommato o sottratto dovrà sem- 
pre esserlo al registro a, che conterrà 
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anche il risultato dell’operazione. 
In altre parole, le operazioni di somma 
e sottrazione possibili sono 


a + X = nuova a 
a-X = nuova a 


dove X può essere indifferentemente un 
dato od un registro. 

La mnemonica dell’operazione di addi- 
zione è 


add 


per cui potremo avere, ad esempio 
add a,123 
add a,c 


mentre per la sottrazione la mnemonica 
relativa è 


sub 
e le operazioni possibili 
sub 123 


sub c 


Notate come nel caso dell’addizione il 
registro a sia indicato, mentre per la 
sottrazione è sottinteso; non c’è un mo- 
tivo per questo, se non che chi ha creato 
questo Assembly ha voluto così. Certo, 
noi potremmo adottare un modo diver- 
so per indicare le stesse operazioni, ma 
questo creerebbe problemi in seguito, 
quando molti di voi inizieranno ad usare 
programmi Assembler che esigono le 
mnemoniche originali. 

Vediamo qualche esempio più concreto 


ld a,2 
add a,3 


produrrà in a il valore 5. 


ld a,2 
sub 1 


produrrà invece il valore 1. 
Lo stesso risultato sarà prodotto da 


ld a,2 
ld c,3 
add a,c 


dove a conterrà, al termine dell’esecuzio- 
ne, il valore 5; il contenuto di c resterà 
invece immutato, cioè 3. 


Analogamente 


ld a,2 
ld c,l 
sub c 


darà in a il valore 1, mentre c continuerà 
a contenere 1. 
Proviamo praticamente tutto questo con 


ld a,5 62 5 
ld e,7 30 7 
add a,e 131 
ld b,0 6 0 
ld ca 79 
ret 201 


per lo Spectrum, e 


ld a,5 62 5 
ld e,7 30 Ti 
add a,e 131 
ld h,0 38 0 
ld 1,a 111 
ret 201 


per lo ZX81. Il trasferimento del risultato 
in bc od hl, a seconda del caso, è necessa- 
rio per poter leggere il risultato sullo 
schermo, dopo aver fatto eseguire la rou- 
tine con 


PRINT USR... 


Per la sottrazione possiamo provare 


ld a,20 62 20 
ld d,7 22 7 
sub d 146 
Id b,0 6 0 
ld c,a 79 
ret 201 


per lo Spectrum, o 


ld a,20 62 20 
ld d,7 22 7 
sub d 146 
Id h,0 38 0 
ld 1l,a Tperi 
ret 201 


Fin qui tutto bene. Ma cosa succede se 
facciamo eseguire 


ld a,230 
ld b,150 
add a,b 


(ricordate che il massimo valore raggiun- 
gibile da un registro o locazione di memo- 
ria a 8 bit è 255) 


oppure 


ld a,20 
ld b,30 
sub b 


Per rispondere a questa domanda dob- 
biamo fare conoscenza con un nuovo re- 
gistro, molto particolare: f, o registro dei 
flag. 

Flag vuol dire, letteralmente, “bandiera”; 
in questo caso è però più appropriato 
tradurre questa parola con “segnale”. Si 
tratta dunque di un registro di segnali. 
Cosa vuol dire? 

Gli 8 bit del registro f non vanno letti tutti 
insieme a formare un numero, ma invece 
guardati singolarmente. 

Ogni bit, lo sappiamo, può assumere due 
soli valori, 0 od 1. Ciascun bit di f indica, 
con il suo valore, il verificarsi o meno di 
una particolare condizione maturata nel 
corso dell'operazione appena conclusa. 
Proprio come un segnale ferroviario indi- 
ca con il rosso l’assenza, e con il verde 
la presenza della condizione di via libera, 
ciascun bit di f indica con 1 la presenza, 
con 0 l’assenza di una determinata condi- 
zione. 


Le condizioni segnalate da f sono: 


stato di segno 

stato di zero 

stato di carry (riporto) ausiliario 

stato di parity (parità)/overflow (numero 
troppo grande) 

stato di subtract (sottrazione) 

stato di carry (riporto) 


Come potete vedere, non tutti i bit di f 
sono utilizzati; i flag sono infatti solo 6. 

Dopo quasi tutte le operazioni di manipo- 
lazione di dati (le operazioni di trasferi- 
mento non influenzano i flag) i vari flag 
riflettono la natura dell’operazione ese- 
guita ed il suo risultato, in questo modo: 


FLAG DI SEGNO: contiene il valore del 
bit 7 del risultato, e quindi sarà 0, se 
questo è compreso fra 0 e 127, 1, se è 
compreso fra 128 e 255. 

Poiché per convenzione si è stabilito di 
considerare la gamma 0-127 come positi- 
va e quella 128-255 negativa (255=-1, 
254=-2, 253=-3, ecc.), questo flag indi- 
. ca la condizione di “segno negativo”, e 
viene perciò indicato con n. 


FLAG DI ZERO: è ad 1, se il risultato 
dell’operazione è 0. Indica perciò la con- 
dizione “risultato zero”. Si indica con z. 


FLAG DI CARRY AUSILIARIO: contie- 
ne il valore del bit 3 del risultato. È usato 
dal microprocessore per uso interno, e 
non esistono operazioni che lo utilizza- 
no. 


FLAG DI PARITY/OVERFLOW: dopo 
un'operazione logica (vedremo in seguito 
di cosa si tratta) è a 0, se la parità (cioè 
il numero di bit a 1) è pari, 0, se è dispari. 
Per esempio, 


00101100 
ha parità dispari, mentre 
00010111 


ha parità pari. Dopo un’operazione arit- 
metica, invece, va ad 1, se il risultato è 
fuori dall’intervallo aritmetico —128/ 
+127. 

Si tratta di un flag poco usato. Si indica 
con p/o. 


FLAG DI SUBTRACT: è influenzato solo 
dalle operazioni aritmetiche. Con lo stato 
1 indica che l'operazione appena esegui- 
ta era una sottrazione. Si indica con n. 


FLAG DI CARRY: nelle addizioni indica 
il riporto, cioè il verificarsi di un risultato 
maggiore di 255. Nelle sottrazioni indica 
invece il prestito, cioè l'avvenuta sottra- 
zione di un numero più grande da uno 
più piccolo. E indispensabile nelle opera- 
zioni aritmetiche su numeri composti da 
più byte, e quindi più registri, come ve- 
dremo in seguito. Può aver altri usi parti- 
colari in operazioni logiche. 


Dopo un’operazione un flag può risulta- 
re: 


— modificato per riflettere il risultato o il 
tipo di operazione 

— posto a 0 incondizionatamente 

— posto ad 1 incondizionatamente 

— immutato 

— modificato a caso 


Torniamo adesso alle nostre operazioni 
aritmetiche. Avevamo fatto l’esempio di 


ld a,230 
ld b,150 
add a,b 


in cui il risultato è superiore a 255. Cosa 
succede? 

Il registro a inizia ad accumulare, unità 
dopo unità, il numero 150: 230, 231, 
232, 233,... Giunto al suo massimo, 255, 
si azzera, proprio come il contachilometri 
di un’automobile: 254, 255, 0, 1,... Nel 
momento in cui questo succede, però, il 
flag di carry passa ad 1, segnalando un ri- 
porto. 

Al termine dell’operazione il risultato non 
è esatto, se lo prendiamo così com'è. 
Controllando il flag di carry, però, ci ac- 
corgeremo che è ad 1, a segnalare che 
un solo registro non è sufficiente a conte- 
nere il risultato dell’operazione. Il risulta- 
to esatto sarà quindi 


256+a 

Lo stesso vale per 
ld a,20 

ld b,30 

sub b 


dove però succede il contrario. Il registro 
a viene infatti diminuito del contenuto di 


b, un'unità per volta: 20, 19, 18, 17,... 
fino ad azzerarsi e riprendere da 255: 2, 
1, 0, 255, 254, 253,... Anche in questo 
caso il flag di carry passa a 1, a segnalare 
che è avvenuto un prestito. Starà poi a 
noi sapere se esiste un altro pezzo del 
numero in un altro registro a cui è possibi- 
le sottrarre il prestito, o se invece si tratta 
di un’operazione impossibile e quindi di 
un errore. 

Se a questo punto qualcuno di voi si 
aspetta la presentazione di altre operazio- 
ni aritmetiche, beh, resterà deluso: non 
ce ne sono altre! 

Davvero: il linguaggio macchina dello 
Z80 prevede unicamente operazioni di 
incremento, decremento, addizione e sot- 
trazione. Niente moltiplicazione o divisio- 
ne. Esistono, in realtà, delle operazioni di 
spostamento di bit che possono essere di 
aiuto nella realizzazione di queste ultime, 
ma fondamentalmente il modo per molti- 
plicare due numeri è la loro somma ripe- 
tuta. 

Lo Z80 non è stato infatti concepito spe- 
cificamente per il calcolo matematico, e 
risulta in questo campo alquanto carente. 
Per questo motivo è bene affidarsi, per i 
calcoli di una certa complessità, al buon 
vecchio BASIC. 

Scrivere una routine per la moltiplicazio- 
ne di due numeri decimali, infatti, è piut- 
tosto lungo e complesso, ed è molto più 
conveniente sfruttare il lavoro già fatto 
da chi ha scritto l'interprete del BASIC. 
In una prossima puntata, comunque, non 
mancheremo di approfondire, per lo me- 
no negli aspetti più semplici, le tecniche 
di moltiplicazione e divisione, nonché 
quelle per l’addizione e la sottrazione di 
numeri contenuti in più registri. 

Per il momento interessiamoci ad un altro 
interrogativo: come si fa a conoscere lo 
stato dei flag? 

Semplice: con i salti condizionati! 

Se avete presente la struttura BASIC 


IF... THEN GO TO 


avete già capito di cosa si tratta: viene 
controllata una determinata condizione, 
e se questa risulta verificata, avviene il 
salto. In caso contrario l’esecuzione pro- 
segue con l’operazione successiva. 

Ci resta da capire come tutto questo si 
realizzi in linguaggio macchina. 

Prima di tutto i salti. Corrispondono al- 
l’istruzione BASIC 


GO TO 

e possono essere di due diversi tipi: asso- 
luti o relativi. 

I salti assoluti si esprimono con 

jp <indirizzo> 

dove jp sta per “jump”, salta, e <indiriz- 
zo> è l’indirizzo della locazione verso cui 
si vuole saltare. 

jp 30000 


sposterà l’esecuzione del programma al 
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posto  all’indirizzo 


codice 
30000. 
E chiaro che per usare salti di questo tipo 
bisogna conoscere esattamente dove si 
vuole mettere, in memoria, la routine. E 
altrettanto chiaro che volendo utilizzare 
la stessa routine, mettendola però in una 
posizione diversa di memoria, bisognerà 
modificare tutti i salti assoluti. 

Una routine scritta per lo Spectrum 48K 
non potrà perciò essere utilizzata così co- 
m'è su di uno Spectrum 16K. Infatti, se 
scriviamo, per esempio, la routine 


operativo 


Id a,12 
jp 60010 
Id b,5 


ret 


questa funzionerà, se la collochiamo in 
memoria a partire dall’indirizzo 60003. 
Infatti 


60003. ld a,12 62 12 
60005 jp 60010 195 106 234 
60008 ld b,5 6 5 
60010 ret 201 


(come vedete, il sistema usato per indica- 
re l’indirizzo del salto è lo stesso utilizzato 
per i dati a due byte: 
106+(234*256)=60010). 


L’operazione 
ld b,5 


verrà saltata e l'esecuzione passerà diret- 
tamente a 


ret 
Se ora proviamo a trasferire la routine, 


così com'è, agli indirizzi da 30000 in su, 
otteniamo 


30000 ld a,12 62 12 
30002 jp 60010 195 106 234 
30005 ld b,5 6 5 
30007 ret 201 


che non può funzionare regolarmente. In- 
fatti l'esecuzione, giunta all’operazione 
ip, salterà all'indirizzo 60010, dove non 
c'è niente che riguardi la nostra routine. 
In questo modo il sistema andrà in “bloc- 
COÙ. 

Volendo utilizzare la routine a partire dal- 
l’indirizzo 30000 bisogna modificarla in 
questo modo: 


ld a,12 
jp 30007 
ld b,5 


ret 
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infatti 

30000 ld a,12 62 12 
30002 jp 30007 195 ESELRIC/ 
30005 ld b,5 6 5 
30007 ret 201 


Questo problema non si pone, invece, 
con il secondo tipo di salto, quello relati- 
vo. 

Questo salto si esprime con 


jr <distanza> 


dove jr sta per “jump relative”, salto rela- 
tivo, appunto, e < distanza> è il numero 
di byte che separano il punto di partenza 
da quello di arrivo del salto. 

Il meccanismo è lo stesso visto la scorsa 
volta per djnz (vi ricordate?), che altro 
non è se non un tipo particolare di salto 
relativo. La formula per trovare l’esatto 
valore di <distanza> è: 


— per salti in avanti 
N=2 

— per salti indietro 
256—(N+2) 


dove N è il numero di byte che separano 
il codice operativo dell’operazione di sal- 
to, cioè IL PRIMO DEI CODICI DEL- 
L'OPERAZIONE STESSA, che sono 
sempre due (il secondo è il valore di < di- 
stanza>). 

Così, l'abbiamo già visto, 


jr 0 


salta al codice operativo successivo, cioè 
in pratica non salta per niente, mentre 


jr 254 


salta alla stessa jr. 
La routine degli esempi precedenti può 
essere riscritta, usando jr, in questo mo- 


do: 


ld a,12 62 12 
jr 4 24 4 
ld b,5 6 5 
ret 201 


Una routine che contenga solo salti relati- 
vi è indipendente dalla posizione in cui 
viene posta in memoria. Infatti la distanza 
fra il punto di partenza e quello di arrivo 
rimane sempre la stessa, a meno che ven- 
gano aggiunte o tolte operazioni. 


In un Assembly più corretto la nostra rou- 
tine andrebbe scritta così: 


ld a,12 62 2 
jr PIPPO 24 4 
Id b,5 6 D 
Pippo ret 201 


cioè usando un'etichetta e lasciando l’in- 
dicazione numerica della distanza nel solo 
linguaggio macchina. In questo modo mi- 
gliora considerevolmente la leggibilità (lo 
stesso discorso vale nel caso dei salti as- 
soluti). 

Quando usare un tipo di salto e quando 
l’altro? 

E consigliabile usare i salti assoluti: 

— quando la distanza dal punto di parten- 
za a quello di arrivo è grande (i salti relati- 
vi possono coprire una distanza massima 
di 127 byte); 

-- quando il punto di arrivo è in ROM, o 
comunque occupa una posizione fissa ed 
indipendente da quella del punto di par- 
tenza. 

E opportuno usare i salti relativi: 

— per piccoli salti all’interno di una routi- 
ne; 

— volendo garantire la rilocabilità (cioè la 
possibilità di essere spostata) di una routi- 
ne; 

— quando non si sa ancora in che punto 
della memoria sarà collocata una routi- 
ne. 


Proprio per rendere gli esempi utilizzabili 
da tutti i tipi di Spectrum o di ZX81, 
cercheremo di fare un uso quasi esclusivo 
dei salti relativi, segnalando i pochi even- 
tuali salti assoluti. 

Ora che abbiamo compreso la meccanica 
dei salti, vediamo come funzionano i salti 
condizionati. 

Si tratta in sostanza di salti che vengono 
eseguiti solo se una determinata condizio- 
ne risulta verificata. 

Le condizioni utilizzabili nei salti sono 
quelle segnalate dai flag, ed infatti questo 
è, come dicevamo, il metodo principale 
per conoscerne lo stato. Ciò che determi- 
na in pratica se il salto sarà eseguito op- 
pure no è lo stato di un particolare bit di 
flag. I salti assoluti li possono utilizzare 
tutti, mentre quelli relativi sono confinati 
ai soli flag più comuni. 

Ecco l’elenco delle condizioni utilizzabili, 
per i due tipi di salto, con il relativo simbo- 
lo da usare per la notazione Assembly. 


salti assoluti: zero z 
non zero nz 
carry c 
non carry nc 
parità pari pe 
parità dispari po 
segno positivo p 
segno negativo m 
salti relativi: zero Zi 
non zero nz 
carry c 
non carry nc 


Proviamo ora con qualche esempio. 


ld a,10 62 10 


sub 5 2A A 
.jr c,SALTO 56 4 
Id bc, 50 INISONMO 
ret 201 
SALTO — ld bc,0 JIRORO 
ret 201 
per lo Spectrum, o 
ld a,10 624710 
sub 5 214 5 
ric SALTO 56004 
Id hl,50 SSt5080 
ret 201 
SALTO — ld hl,0 6 MO 10) 
ret 201 


per lo ZX81 producono sullo schermo il 
valore 50. L’operazione di salto non vie- 
ne infatti eseguita, poiché la sottrazione 


10—5=5 
non dà luogo a carry. 


Viceversa, sostituendo nella prima opera- 
zione il valore 4, la cosa cambia: 


ld a,4 62 4 
sub 5 PAN 
Jie XSALSTO! "56 4 
Id bc,50 1 ‘5000 
ret 201 
SALTO — ld bc,0 IO RO 
ret 201 
o, per lo ZX81 
ld a,4 62 4 
sub 5 21405 
jr c SALTO ‘56 4 
ld hl,50 S3E50/820 
ret 201 
SALTO — ld hl,0 S305 0650 
ret 201 


Questa volta il valore stampato è 0, poi- 
ché la sottrazione 


4-5=255 

dà luogo a carry. 

Potremmo provare allo stesso modo con 
delle somme, ma è più interessante a 
questo punto riprendere due nostre vec- 
chie conoscenze: 

inc <registro > 


e 


dec <registro> 


che essendo operazioni aritmetiche in- 


fluenzano i flag. 
La sequenza 


ld c,255 


inc c 


porterà a 0 il contenuto di c e di conse- 
guenza a ]l il flag di zero. 
Lo stesso avviene per 


ld d,l 
dec d 


Questo è molto importante, poiché per- 
mette di “costruire” dei cicli del tipo 


CICLO ld <registro>,<valore> 
dec <registro> 
jr nz, CICLO 
ret 


dal funzionamento analogo a djnz, ma 
con la possibilità di utilizzare qualsiasi re- 
gistro come contatore. 

Per oggi direi proprio che basta! 

Per passare il tempo fino alla prossima 
puntata eccovi, come di consueto, due 
routine, una per ZX81 ed una per Spec- 
trum, che contengono un po’ di tutto 
quello che abbiamo visto finora. 

Si tratta ormai di routine di un certo inte- 
resse anche pratico. Infatti per lo ZX81 
abbiamo il riempimento dello schermo 
con un carattere, in questo caso il numero 
5, ad una tale velocità da sembrare istan- 
taneo. La routine per lo Spectrum provo- 
ca invece lo “scrolling” (cioè lo sposta- 
mento) laterale verso destra di tutto lo 
schermo. 


ZX81: 
lda, (16396) 58 12 64 
e, a 95 
lda, (16397) 58 13 64 
da 87 
ld a,33 62 33 
ld c,22 14 22 
DUE ld b,32 6032 
UNO ld (de),a 18 
inc de 19 
djnz UNO 16 252 
inc de 19 
dec c 13 
jr nz, DUE 32 246 
ret 201 


da far eseguire con 
RAND USR........ 


dopo averla caricata in memoria nel 
modo solito. 


Spectrum: 
ld de, 16384 17 0 64 
ld c,192 14192 
DUE ld b,32 6 32 
Id h,0 St 
UNO ld a,(de) 26 
ld lja JA 
ld a,h 124 
ld (de),a 18 
ld h,l 101 
inc de 19 
djnz UNO 16 248 
dec c 3 
jr nz, DUE 32 241 
ret 1 


anche questa da caricare nel solito modo. 
Ogni volta che darete 


RANDOMIZE USR ... 


otterrete lo spostamento dello schermo 
verso destra di una posizione. 
Provate questo programmino: 


10 FOR i=1 TO 21 

20 FOR j=1 TO 32 

30 PRINT CHR$ (j+32); 

40 NEXT j 

50 NEXT i 

60 FOR i=1 TO 32 

70 RANDOMIZE USR 60001 
80 NEXT i 


per avere un'idea del funzionamento del- 
la routine. 

Per entrambi i programmi spiegazione e 
proposte di modifiche nella prossima pun- 
tata! 
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te E 5 EI 5 N NE 5 5 5 E a i 


di Nîno Amico tia 


Un programma per gente dai ri- 
flessi pronti e capace di aggiudi- 
carsi un risuîtato finale degno di 
questo nome. 


mart boy si divide in tre piccoli pro- 

grammi, ognuno dei quali ci permet- 
te di guadagnare un certo numero di 
punti, per fornirci poi un risultato finale 
sul nostro grado di concentrazione e sul- 
la potenzialità dei nostri riflessi. Bisogna 
però dire che per accedere alle succes- 
sive prove del programma bisogna tota- 
lizzare nella prima e nella seconda pro- 
va un certo numero di punti, altrimenti 
viene direttamente fornito il risultato fi- 
nale. 
La prima parte del programma è a tutti 
gli effetti una prova per misurare i no- 
stri riflessi; si tratta cioè di fermare nel 
più breve tempo possibile il conteggio, 
che partirà dopo un certo numero di 
secondi e sul quale non potremo barare, 
tenendo premuto prima del tempo il ta- 
sto “0”, perché ci verranno tolti 5 punti. 
Inoltre il computer ci dirà se rispetto 
alla prova precedente stiamo miglioran- 
do o peggiorando. 
La seconda prova ci vede di fronte ad 
un caseggiato che dovremo difendere 
dalle scariche elettriche di due fulmini 
che partiranno a caso da sinistra o da 
destra dello schermo. Anche qui è inuti- 
le tenere premuti i tasti “5” e “8”, quelli 
che ci permettono di fermare i fulmini 
prima che essi possano distruggere il ca- 
seggiato. 
Infine la terza prova: bisogna cercare di 
superare un deserto di cactus e per far 
questo bisogna controllare il movimento 
dell’omino con i tasti “1” e “Q”. 
A differenza delle prime due prove, in 
cui è previsto di superare 7 manche, in 
quest’ultima prova si tratta di avere i 
riflessi molto pronti e, diciamolo pure, 
un pizzico di fortuna, per cercare di te- 
nere in vita il più a lungo possibile il 
nostro simpatico personaggio, che una 
volta superato l’intero schermo si trova 
di nuovo dall’altra parte, pronto a parti- 
re per una nuova avventura. 
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Note al programma 

Le variabili usate sono le seguenti: 

P: ci fornisce il punteggio parziale delle 
varie prove 

T: ci fornisce il punteggio totale delle 
tre prove 

M: è il flag che controlla il numero di 
manche 

A, B, C sono tutti flag di controllo del- 
l'output... 

E da rilevare che la scelta del numero 
di punti da fare per accedere alle varie 
prove, oppure di quelli da fare per ag- 


giudicarsi un certo giudizio, è un fatto 
estremamente soggettivo. 

A questo proposito si può rendere il 
gioco più facile o più difficile cambiando 
le seguenti linee: 

— linea 205: penalità per aver premuto 
il tasto prima del tempo 

— linea 510: punteggio per accedere 
alla seconda prova 

— linea 8020: punteggio per accedere 
alla terza prova 

— linea 9972: punteggio per il giudizio 
finale 


versione per ZX Spectrum 16K/48K 


100 


192 


N95 


197 
198 


200 


REM SMART BOY 

autore Nino Amico 
REM CARATTERI GRAFICI 
REM 
DATA R373,37,63%1.274/255 720, 1670 
DATA 255,170,255,170,170,255,128 
2555 
DATAN2555= 255,85 8570/125572 
55 
DATAWSI»1,:17125 5A 25574974, 
255 
DATA 8,20,37,66,144,41,74,132 
DATA 66,164,40,16,132,72,80,32 
DATA 48,40,16,62,40,40,16,24 
DATA 48,176,244,52,188,240,48,48 


FOR A=USR "A" TO USR "H"+7: 
READ S: POKE A,S: NEXT A 
PAPER l: BORDER l: INK 7: CLS 
REM ++ PRESENTAZIONE ++ 


PAUSE 10 
EBIENAS-HESNMEA TRE: === plot 
"* FOR A=1 TO 24: FOR B=1 TO 0 


STEP -1 

PRINT PAPER 0; BRIGHT 1;AT 10,3 
+A;AS (A): BEEP .025, B+INT (RND* 
5): NEXT B: NEXT A 


LED Beat Quei ra ui = by 
N. ": FOR A=l TO 26: FOR B=1 

TO 0 STEP -1 

PRINT PAPER 0; BRIGHT 1l;AT 12,2 
+A;B$ (A): BEEP .025,B+INT (RND*5 
)-s NEXT B: (NEXT: A 


RESTORE 8510: GO SUB 8500 
LET T=0 
REM T=GIUDIZIO FINALE 


CLS : PRINT AT 8,3; INVERSE 1;"P 
REPARATI ALLA PROVA N.1": 

PRINT PRINT TAB 3;"DOVRAI FER 
MARE IL CONTEGGIO": PRINT : 
PRINT TAB 3; "NEL PIU' BREVE TEM 
POWPOSST-": PRINT PRINT TAB 3; 
"BILE. USA IL TASTO "; 

INVERSEC = ont 
REM ++ INIZIO GIOCO ++ 


PAUSE 250: LET P=0: LET M=0: 
LET C=0 


REM P=PUNTEGGIO,M=MANCHES 
IF INKEY$<>"" THEN GO TO 198 


CLS : PRINT AT 0,0; INVERSE 1; "P 

UNTI": PRINT AT 0,7;P: FOR A=7 
TO 9: FOR B=12 TO 19: PRINT 

AT A,B;"{SG8}": NEXT B: NEXT A: 
PRINT AT 8,13;"999.99": PAUSE ] 
00+INT (RND*200) 


205 


210 
220 
230 
240 
245 
250 
255 


260 


270 


495 
497 
500 


502 
510 


530 
550 


600 


605 


610 


620 
630 


650 


655 
657 


660 
670 
680 
1100 


IF INKEY$<>"" THEN PRINT AT 2 
0,11]; FLASH l1;"NON BARARE": 
PAUSE 70: LET P=P-5: GO TO 198 


FOR A=999 TO 0 STEP -.99: 
PRINT AT 8,13;A 

IF INKEY$="0" THEN LET A=A+1l: 
GO TO 240 

NEXT A 

PAUSE 100 

REM CONTROLLO RISULTATO 


LET P=P+INT (A) 

IF M=0 OR M=6 OR A=C THEN 

PRINT AT 20,14; FLASH 1; "OKAY": 
PAUSE 100: PAUSE 1: GO TO 500 

IF A>C THEN PRINT AT 20,6; 
FLASH 1; "BENE STAI MIGLIORANDO" 
PAUSE 100: PAUSE l: GO TO 500 


FEMA<SCKITHEN PRINT AP 20173; 
FLASH 1;"ATTENTO STAI PEGGIOR 
ANDO": PAUSE 100: PAUSE 1: 

GO TO 500 


REM STAMPA PUNTEGGIO E 
REM CONTROLLO MANCHES 


PRINT AT 0,7;P: LET C=A: LET M=M 
lie LE (M<7 THEN. GO TO. 200 

GO SUB 9940: LET T=T+P 

IF P<6930 THEN PRINT AT 20,10; 
FLASH 1;"MI DISPIACE" 

: PRINT #0;AT 0,0; "NON PUOI PASS 
ARE ALLA 2. PROVA": GO TO 9970 


REM ++ PASSAGGIO 2.GIOCO ++ 


Cbs is (HFORUA=0 TO 300: OUT 2540: 
OU:1!#25:4,255:= INEXTCA 

BORDER 1: CLS : PRINT AT S]nSr 
INVERSE 1;"PREPARATI ALLA PROVA 
Ne 20 e SPRINT PRINT TAB 3; "DOVR 

AI DIFENDERTI DAI FULMINI": 
PRINT PRINT TAB UUSA CH TAST 
Pes VENVERSE 0 5 Veste 

RESTORE 8510: GO SUB 8505 


REM ++ CAMPO DI GIOCO ++ 


LET P=0: LET M=0 

CLS : PRINT AT 0,0; INVERSE 1;"P 

UNTI": PRINT AT 0,7;P 

FOR A=0 TO 31: PRINT AT 10,A;" " 
PRINT AT 20,A;" ": NEXT A: 
PRINT AT 10,15;CHR$ 144;CHRS$ 14 

6: PRINT TAB 15;CHR$ 145;CHR$ 14 

"I 

PAUSE 100+INT (RND*200) 

REM CASUALITA' DIR.FULMINE 

LET A=1+INT (RND*2) 

IF A=1 THEN GO TO 1100 

IF A=2 THEN GO TO 1200 

IF INKEY$<>"" THEN GO TO 655 
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1105 


VAEUO 


IRA: 
1120 
1200 


1220 
1250 


1300 
1350 
5000 
5050 
5070 
5100 


5200 
6000 
6100 


8000 
8020 


8050 


FORTB=1BITOr le MPRINT ATEO: Ue 
sCHR$ 148;CHR$ 149 
IF INKEY$="5" AND B<13 THEN 


LET B=B-1: GO TO 5000 
IF B=14 THEN GO TO 5100 
NEXT B 
IF INKEYS<>"" ‘THEN. GO TO. 655 
FOR B=28 TO 14 STEP -1: PRINT 


AT 10,B;CHR$ 148;CHR$ 149;" " 
IF INKEYS="8" AND B>16 THEN 


LET B=B+1: Go TO 5000 
IF B=15 THEN GO To 5100 
NEXT B 


GO SUB 9900 
LET P=P+100 
GO TO 6000 
PRINT AT 10,15; INK 4; 
CHR$ 144;CHRS 146: 
5; INK 4; OVER 1;CHR$ 
49 
GO SUB 9920 
LET M=M+1: PRINT AT Oi 
PAUSE 10+INT (RND*60): IF M<7 
THEN GO TO 650 


OVER 1; 
PRINIDIATOIC.I 
148;CHRS 1 


GO SUB 9940: LET T=T+P 

IF P<600 THEN PRINT AT 20,10; 
FLASH 1;"MI DISPIACE" 

: PRINT #0;AT 0,0;"NON PUOI PASS 

ARE ALLA 3. PROVA": PAUSE 100: 
GO TO 9970 


REM ++ PASSAGGIO 3.GIOCO + 
+ 
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8100 


8105 
8110 


8120 


8150 


8160 
8170 


8180 
8190 


895 
8200 
8205 
8210 
8220 
8230 


8250 
8260 
8270 
8280 
8290 
8300 
8350 
8400 
8450 


8470 
8500 


8505 


8507 
8510 


8515 


8520 


9900 


9910 


CLS : FOR A=0 TO 300: 
OUT 254,255: NEXT A 
BORDER l: CLS 
PRINT AT 8,3; INVERSE 1; "PREPARA 
TI ALLA PROVA N. 3": PRINT 
PRINT TAB 3;"DOVRAI SUPERARE UN 
se PRINT PRINT TAB 3; "DESERTO 
DIKCACTUSA=" iS PRINT eSPRINITTAB3 
FRUSAT I: TASTI UN INVERSEMG tt Sale 


OUT*254970 


Q ULI 

RESTORE 8510: GO SUB 8505: LET P 
=0: LET M=0 

CLS:SPREINTAT* 0,0». INVERSENTS"p 
UNTI": PRINT AT 0,7;P: PRINT 
ATRO71353°M5CHRS 150 

FOR C=0 TO 40 

LET A=2+INT (RND*17): LET B=2+ 


INT (RND*26) 
PRINT AT A,B; OVER 1;CHR$ 151 
NEXT C 


LETSE=10 

PRINT AT C,1;CHRS 150 

PAUSE 50 

FOR A=1 TO 29 

PRINIIAT'CIA, E 

LET C=C+((INKEY$="Q" OR INKEYS=" 
q") AND C<20)-(INKEY$="1" AND C> 
0) 

IF SCREENS 
GO TO 8300 
BEEP .003,10 

PRINT AT C,A+1;CHRS 150 
NEXT A 
GO SUB 
GO TO 
GO SUB 
1 
PRINIENA TROIE Ds 
GO TO 8150 
PAUSE 5: GO SUB 9940 

LET T=T+P 

GO TO 9970 

REM COLONNA SONORA 


FOR C=1 TO 52: READ A4A,B: 

B: NEXT € 

RETURN 

DATA 5 ORIO LORO OSO 
PESO SRI OLA RON 
ZELO Ze OMAR STO 
Baz 

DATA III 07 7 0)27 SENTORI 
VOTE 0 402 ORLO 
«MOT SIA 27901 DI], OA EOS 
07797720574 09 SIRIO 
0,7 

DARA 15, MZ ERO 500 
UORREOrReE IO 0a, 
10:50 0050 058 
056 O 

PRINT AT 20,12; FLASH 1; "BENIS 
SIMO": FOR A=10 TO 16: FOR B=15 
TOi:25:BEEPI 108), A SSBEEP2.04rB- 
NEXT A: NEXT B 


(CAI) ESIRMIATHEN 


9900: 
8350 
99206 


LET P=P+100: 


LET P=P+0: LET M=M+ 


IF M<3 THEN 


BEEP A, 


RETURN 


9920 


9930 
9940 


9950 
997,0 


CISTI: 
9972 


9973 


9974 


9975 
9980 
9985 


9987 
9990 


9992 


PRINTRALRZ07:13: BELASHMM: PECCATO 
VE MEORNA-=20T00- 10NSTEPA-1: 

BEEP .04,A: NEXT A: FOR A=-6 

TO 14 STEP! ill: (BEEP087A: 
NEXT A: FOR A=-12 TO -15: 

BEEP .035,A: NEXT A 


RETURN 

PRINT AT 20,3; "HAI TOTALIZZATO " 
PP PUNDI : PAUSENT00 MS RORSA=0 
TORM3lMPRINIMA TZ Ae 

BEEP: 0:52.05 GNEXIDRA 

RETURN 

PAUSE 100: CLS : PRINT AT 0,8; 
FLASH 1; "GIUDIZIO FINALE": 
PRINT AT 5,2; INVERSE 1; "RIFLES 
SI": PRINT AT 5,18; INVERSE MEL e 
ONCENTRAZIONE" 


RESTORE 8510: GO SUB 8505 
IE T>8500 THEN LET AS="OTTIMI": 
LET C$="BUONA": GO TO 9980 
IF T>8000. THEN LET A$="BUONI": 
LET C$="DISCRETA": GO TO 9980 
IF T>7400 THEN LET A$="DISCRETI 
": LET C$="SUFFICIENTE": GO TO 9 
980 
IF T<=7400 THEN LET A$="SCARSI" 
: LET C$="PESSIMA" 
PRINT AT 7,2;A$: PRINT AT 7,18;C 
$ 
PRINT AT 20,0; "VUOI GIOCARE ANCO 
RA ?(S,N)" 
PAUSE 0 
IF INKEY$="S" OR INKEY$="s" 
THEN GO TO 185 
STOP 
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Affrontate lo ZX81 in uno dei 
giochi più tradizionali. 


Gher a carte col computer non è 
cosa nuova, ma può essere piace- 
vole avere un programma in più per 
divertire gli amici e per passare qualche 
momento di relax lontano dalla frenesia 
dei joystick. 

Ancor meglio se, disponendo di tempo 
e volontà, ci si addentra nel program- 
ma, cercando di capire come il compu- 
ter arriva a giocare in modo accettabile 
e come si possano migliorarne le presta- 
zioni. 

Questo programma consente ad un sin- 
golo sfidante di giocare contro lo ZX: i 
commenti che seguono vi potranno es- 
sere utili per comprenderne il funziona- 
mento, soprattutto nei meandri un po’ 
infidi degli AND, degli OR e delle varia- 
bili booleane cui siamo stati costretti 
per avere la necessaria efficienza e fles- 
sibilità. 
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CDI C]CCLCcCiI [I{_L{_t_I _ ll i 


Subito dopo il LOAD un bel RUN po- 
trebbe far cominciare il divertimento, 
ma... c'è sempre un ma: la grafica. 

Le carte sono rappresentate da rettan- 
goli di dodici caratteri (4x3) e manipola- 
te da una velocissima routine in linguag- 
gio macchina, ma l’assenza di sprite si 
avverte comunque; non resta che farci 
l’occhio: la cornice rappresenta il seme 
(+, =, $, * inversi), mentre al centro c’è 
il simbolo, che è numerico per le carte 
meno importanti (2, 4, 5, 6 e 7) e alfabe- 
tico per quelle con punti: Asso, Tre, Re, 
Cavallo e Fante; dopo un po’ ci si è 
abituati e allora si va via con brio! 


Commenti al listato 

Il diagramma di flusso è riportato in fi- 
gura l. 

Si nota il notevole ricorso a subroutine 
specializzate nei vari compiti, il che con- 
sente di trattare il complesso problema 
nei singoli aspetti. 


l’inizio (8000) vi è una schermata 
d’attesa, cui segue (9000) il boostrap 
delle variabili dimensionate e l’inizializ- 
zazione di tutte le altre. 
Si noti COP=1 (9082), che istruisce il 
computer a non mostrare le proprie car- 
o porre COP=0, se si desidera veder- 
e. 
All’inizio vero e proprio del gioco 
(2000) si procede a rimescolare il maz- 
zo (3000), eseguendo per 50 volte lo 
scambio fra una coppia casuale di carte 
estratte a caso. 
Le linee 3015, 3042 e 3044, e la suc- 
cessiva chiamata 3046 alla routine in 
1/m consentono di visualizzare la prima 
delle due carte scambiate in seme, 
W$(2), e simbolo, I$(CODE W$(1)-28), 
nella finestra 5, cioè al centro dello 
schermo (vedi figura 2). 
AI ritorno dalla SUB si assegna casual. 
mente la mano e si azzera il contatore 
delle carte, procedendo alla distribuzio- 
ne delle tre coppie iniziali. 
Si noti la sinteticità delle linee 2157 e 
2170, che trattano con assoluta genera- 
lità sia il caso di carte coperte (CODE 
seme=128) che scoperte, sia che la ma- 
no tocchi al computer che al giocato- 
re. 
La settima carta distribuita (2200) è la 
briscola e viene stampata (2260 + 
2265) nella finestra 4, mentre le rima- 
nenti costituiscono il mazzo visualizzato 
in finestra 3. 
La partita può quindi iniziare (2500) 
con la giusta sequenza, dettata da MA- 
NO, di proposte, risposte, input e asse- 
gnazioni. 
Si noti che il ciclo è chiuso (2900) e il 
calcolatore rileva la fine del gioco in as- 
segnazione. 
La procedura di input (300) è molto 
semplice, limitandosi a far apparire un 
cursore lampeggiante sotto le tre possi- 
bili scelte e aspettando la pressione di 
un tasto; a pressione avvenuta verifica 
la correttezza della mossa (393) e spo- 
sta sul video la carta giocata dal mazzet- 
to del giocatore (finestra 7, 8 o 9) al 
tavolo (finestra 6) (linee 400 + 430). 
Più complessa è la routine MEJO, che 
deve fornire la giusta scelta sia in rispo- 
sta che in proposta. 
Come è usuale in giochi di questo tipo, 
il calcolatore testa tutte le sue possibili 
tà, disponendo di un parametro di meri- 
to della situazione che si viene a creare. 
Questo parametro è VAL, calcolato co- 


me valore della posta in gioco e succes- 
sivamente corretto per tenere conto sia 
della presa sia del prezzo pagato per 
ottenerla; viene calcolato per ogni op- 
portunità dalle ruotine di PROPOSTA 
(100) o RISPOSTA (200). 

In entrambi i casi si parte dal calcolare 
la posta in gioco (110 e 210) e si tiene 
conto dei casi particolari che si presen- 
tano a fine partita con meno di tre carte 
in mano (130 e 245); in più nel primo 
caso (120) si penalizzano uscite avven- 
tate di asso o tre o poco furbe come 
briscole gratuite, mentre nel secondo 
caso (220) si stabilisce a chi finisce la 
giocata, regolandosi di conseguenza; la 
linea 230 si è resa necessaria per evita- 
re utilizzi inopportuni delle briscole più 
pregiate. 

Effettuate le rispettive giocate il control- 
lo passa alla routine di assegnazione 
(1000), che fa riferimento alle carte 
puntate in T$ da PG e PC, rispettiva- 
mente per il giocatore e il calcolatore. 
In alternativa le linee 1080 e 1090 trat- 
tano il caso di semi uguali e semi diversi, 
assegnando la mano nel primo caso a 
chi ha giocato la carta più alta, nel se- 
condo a chi avesse giocato una briscola; 
se nessuno lo ha fatto, la mano rimane 
inalterata al primo giocatore. 

In 1100 si aggiornano i punteggi, poi vi 
è la ripulitura del tavolo con due chia- 
mate su FIN 5 e FIN 6 con argomento 
nullo (0). 

Da 1190 a 1200 si stampa lo stato della 
situazione; da 1300 si distribuisce la 
nuova coppia di carte, non prima di 
aver controllato (PM<39) che ve ne 
siano ancora e nella sequenza corret- 
ta. 

A 1560 si entra nel ciclo di esaurimen- 
to, scandito da TRIS; alla prima entrata 
si cancellano mazzo e briscola scoperta 
sul tavolo, successivamente ci si limita 
a non distribuire nuove carte. Se 
TRIS=0, si chiude la partita con i con- 
sueti canti di vittoria. 


La routine in linguaggio mac- 
china 


Per una gestione video sufficientemente 
veloce, dovendo manipolare sprite piut- 
tosto grandi (4x3 caratteri), si è reso 
necessario il ricorso ad una routine in 
linguaggio macchina di uso abbastanza 
semplice e generale. 

Come input rileva fino a tre codici alle 
locazioni FIN + FIN + 2, di cui il primo 
indica la posizione, il secondo il seme 
ed il terzo il simbolo della carta in ogget- 
to. 

Sul video sono definite 10 posizioni (fi- 
gura 2) numerate da 0 a 9; la locazione 
del primo carattere da stampare si ot- 
tiene sommando a D_ FILE (variabile 
di sistema) il contenuto di una tabella 
memorizzata alle locazioni 16517 + 
16536 (2 byte per ogni elemento). 
Viene poi investigato il valore del secon- 
do parametro passato in FIN + 1; se 
esso è 0 o 128, andrà ripetuto per dodici 
volte, col risultato di cancellare 0 copri- 


[8000 | INIZIO DEL GIOCO i 


INIZIALIZZAZIONE 
DELLE VARIABILI 


| 2000 | INIZIO DELLA PARTITA 


GO SUB MESCOLA 


DISTRIBUZIONE 
DELLE CARTE 


ASSIGNMENT 


ASSEGNA LA MANO 


NUOVA MANO 


SCAMBIA DUE CARTE 


fig. 1 - Diagramma di flusso. 


PER 50 VOLTE 


e] __co mn 


ASSEGNA A PG 
IL VALORE 1,203 


100 PROPOSTA 


FORI=1T03 


PROPOSTA 
RISPOSTA 


200 RISPOSTA 


* RETURN 


GIOCA LA CARTA CON 
VAL 


MAX 


re tutta la finestra. Diversamente il se- 


me andrà a formare una cornice rettan- 


golare, al cui centro verrà stampato il 
simbolo della carta, passato in FIN+2. 
La routine è rilocabile e si presta ad 
essere utilizzata per giochi di carte di- 
versi, a patto di modificare gli spiazza- 
menti contenuti in tabella; la posizione 
di questa va però mantenuta fissa. 


Conclusioni 

Per i “LOAD’N’RUN” a oltranza un 
simpatico passatempo; per tutti gli altri 
una possibilità in più di confrontare il 
proprio modo di programmare e una 
sfida a spingere oltre il livello di raffina- 
tezza del gioco, prendendo in considera- 
zione ragionamenti più sofisticati sulle 
carte già giocate e sulla gestione delle 
briscole. 


FINO Spiazz.  d°bfe 265% 
2) 44 (7) Uoars 
PI 49 # +9 
DI 54 (7) S+ 
3 LES 4 9 
4 269 4 13 
s 277 4 24 
È 280 4 24 
7 06 4 $50 
8 C27] 4 oe 
9 5/6 2 * 
SPIAZZ = 2568 (1Lh)2"byh) 
A'ih è Ses +gx (Em) 


tab. 1 - Corrispondenza fra numero 
delle finistre e tabella degli spiaz- 
zamenti. 
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oa 


Dalla 
grande 
edicola 
Jackson 


Tutto sul personal 


computer 


PC 


L'unica rivista italiana dedicata ai sistemi 
MS-DOS, Personal computer IBM e 
compatibili. 

10 numeri all'anno: L. 5.000 a numero 
Abbonamento: solo L. 40.000 


Personal ) 

L'unica rivista indipendente per gli utenti dei 
personal computer Olivetti. 

10 numeri all'anno: L. 4.000 a numero 
Abbonamento: solo L. 35.000 


La rivista di informatica nella didattica per la 
scuola italiana. 

9 numeri all'anno: L. 2.000 a numero 
Abbonamento: solo L. 15.000 


Aspetti e problemi del software per personal 
computer, programmi, giochi e sistemi 
operativi. 

11 numeri all'anno: L. 4.000 a numero 
Abbonamento: solo L. 34.000 


La prima rivista europea di personal 
computer, software e accessori. Con test, 
novità, analisi del mercato... 

11 numeri all'anno: L. 5.000 a numero 
Abbonamento: solo L. 43.000 


Quando l’informazione 
fa testo 


re =“ 
| In busta chiusa inviate questo coupon a: 

| Gruppo Editoriale Jackson 
| via Rosellini, 12 - 20124 Mi 


1 O Desidero ricevere GRATIS un numero 


della Rivista 


' 

I 

I 

I (allego L. 1.000 in francobolli per 

I contributo spese di spedizione) 

lo Inviatemi GRATIS il Catalogo della 

1 Biblioteca JACKSON (allego L. 1.000 
I in francobolli per contributo spese di 
L spedizione) 
ja 
I 
[| 
[| 
I 
I 
I 
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Descrizione delle variabili z| 


DIMensionate 

M$(41,2) . mazzo di 40 carte + la briscola scoperta 

V(10) valore di ogni carta nel computo del punteggio. Il program- 
ma vi fa riferimento per stabilire la posta in gioco nella 
mano in oggetto. Le carte che non incidono sul punteggio 
hanno valori decimali per determinare la corretta presa di 
carte più basse 

T$(2;3,2) il tavolo di gioco. Ciascuno dei due giocatori ha tre carte 
identificate da due caratteri: il seme e il simbolo 

P(2) punteggi calcolati e visualizzati per ogni mano assegnata 

Semplici 

MEJO n° di linea della routine di scelta del calcolatore 

INPUT n° di linea della routine di input 

ASSIGNMENT n° di linea della routine di assegnazione della mano 

END n° di linea della routine di terminazione 

REFR indirizzo di chiamata della routine in 1/m, che rinfresca il 
contenuto di una delle 10 finestre predefinite, risttampando 
o cancellando il contenuto 

FIN indirizzo del primo dei tre byte, parametri della routine 
REFR, che stabiliscono quale carta va stampata e dove 

VAL valore della posta in gioco 

PG, PC puntatori alla carta scelta dal giocatore e dal calcolatore 

MAX massimo dei VAL trovati 

PM puntatore al mazzo, tiene il conto delle giocate 

TRIS contatore del terzetto di coppie che esauriscono il gioco 

I$ in fase d’avvio contiene sotto forma di stringa i valori che 
vengono letti con procedure simulanti READ/DATA; suc- 
cessivamente contiene i 10 simboli che identificano ciascuna 
carta 

Booleane 

MANO se MANO=0, tocca al computer, diversamente tocca al gio- 
catore 

COP se COP=1, delle carte del computer appare il dorso. Se 
viene resettata consente di vedere anche le carte che può 
scegliere il programma, e quindi verificare la bontà delle 
mosse eseguite 

COMPUTER 


MAZZO BRISCOLA TAVOLO 


GIOCATORE 


fig. 2 - La disposizione delle carte 
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sh: 

SPE 

28 SSIG 

29 Sea 

BOE SC0E 

3005 PRINT AT 15, n RL MESCOLAM 
ENTO DL MRAZZ p 

SOLA RAND 

015 FOKE FIN,S 

3020 FOR I=1 TO 50 

30925 LET P=INT i40*RND+1) 
30265 LET Q=INT id40#&RND+1) 
SASA LET J$=M&(P1 

3035 LET NH$iP1=M%&i(0) 

3E4A LET M$ (01 =lJ$ 

3042 POKE FIN+1,C0DE W$i (=) 
cer POKE FIN+2,C0DE I$ (CODE Usi 
1) -285) 

3945 LET L=USFR REFR 

305A NEXT I 

3100 RETURN 

SQuAa REM 


SOLA PRINT "'£5FXK%FEKF4FFkFFrFF4X44%%% 

+$+++4+4*+4#+*** GARA DI BRISCOLA 

SINGOLARE FEFEKEFLESKLEFLFK4K4A4X4#+ 

EFEFEXEE4E##" 

3058 PRINT AT 15,0; "LUN ATTIMI... 
PRENDO LE Poi 

3000 pen h& 


SRERoRR da o usi EE 
+ +2 +53 

ERER GE BEBE: a 65 DI 

ALA TER 2 
9022 LET Me (1/2) Sts(1- IST WRTO 

3025 NEXT 

Fino ET la="li.pio. 4 ,5,5, 702030 

IAS DIN illdi 

9037 FOR Is TO 20 STEP 2 

ISS CET TA eRUAESTESÌ- 1 TODI 

SOdA NEXT I 

I050 DIM T$(2,2,.,21 

SESA DIN Pisi 

9054 LET MEUJO0=S00 

3055 LET INPUT=300 

9072 LET ASSIGNMENT=10900 

sa?6 LET REFR=16537 

99783 LET FIN=15514 

SASA LET END=1?00 

3055 LERESEP=1: 2 

Sessa LET I$="AR2T45857FCR" 

3092 LET U$=" salle SU" 

S0Id DIM Likizi . 

IIlisd GOTO 2000 i 

Pi=s[aBzi i LOSD MACHINE COCE | 

2501 FAST 

3559 LET A$="NAI 044 DANA 043 000 
AS4 001 aA09 G01 A13 a01 al Dal 
d24 d0l 259 0O0l 255 002 ad4 " 

23359 LET 6B$="955 1309 054 09735 006 
dua 033 1353 064 09 009 2709 935 
a75 di2 al12 asd a09 052 131 064 
dP3 203 0359 16? " 

23579 LET C$="@32 Qal4 017 051 n00 
dd5 d05 113 A35 113 @35 113 025 
dle sas o " 

93?5 LETIESS "PS 03501130055 DAS 

28509 LET F$="025 113 0355 054 200 
O35SListmoas “ 

933855 LET D$="20f1 a58 132 Q64 071 
di7_ 9351 000 "+E$+F$+"113 @35 ll 

2_ 035 115 "+F$+E$+"201 "'" 

9390 LET T$=A$+65$+C$+D% 

9900 LET P=16517 

9914 FOR I=1 TO LEN T$ STEP 4 

99209 POKE P._VAL T$(I TO I+2) 

9939 LET P=P+1 

9949 NEXT I 

39959 SLOLU 
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Gianni Giaccaglini 


Vivere 
col Personal Computer 


comprenderlo, adoperarlo, ; È 
subirne il fascino e le nevrosi S 1 In edicola ' 


a sole 
lire 6.000. 


Arrivano i Quaderni Jackson, tanti Volumi già pubblicati: 
volumi monografici per conoscere bene 
il personal computer e l'informatica. Gianni Giaccaglini “Vivere col Personal Computer” 
Nei quaderni Jackson c'è tutto quello Paolo -Roziola “Dentte:e fari la agatola; 
che è importante sapere sui computer, la Hr cavia ie pifi 
programmazione, i linguaggi, il software, e Marco Fasi “A ciascuno il suo Personal” 
le applicazioni e i nuovi sviluppi dell’in- 
formatica. 
Quaderni Jackson: l'informatica a tutti 
i livelli, in una collana aperta, pratica, GRUPPO 
essenziale, aggiornata. EDITORIALE 
L'informatica tascabile per chi vuole JACKSON 


aperne di più e compiere così un salto 


IA 


‘ di qualità nel mondo di oggi e di domani. Ie oe Mao 
Ogni mese, 2 volumi. 


E E, E 5 I I a le 


di Federico Frezza 


Scoprite il mistero dell’isola del 
faro, in un adventure game per 
tutti gli Spectrum. 


adventure, un gioco di avventura, 

n tipo di sfida intellettuale assai diffuso 
in Inghilterra, ma che sta prendendo 
piede sempre più anche qui da noi. 
In un adventure vengono messi alla pro- 
va non i riflessi e la coordinazione ma- 
nuale, bensì l’ingegno e la capacità di 
osservazione del giocatore. Per raggiun- 
gere lo scopo del gioco (quale questo 
sia, è spesso proprio uno dei problemi 
da risolvere) si impartiscono brevi ordini 
al computer, ordini che permettono soli- 
tamente di muoversi nelle varie direzio- 
ni, di prendere o posare oggetti, oppure 
di eseguire altre azioni attinenti alla si- 
tuazione in cui ci si trova. 
Il presente programma “parla” in italia- 
no. I comandi accettati sono del tipo 
verbo + oggetto, con il verbo coniugato 
alla prima persona singolare (ad esem- 
pio “PRENDO LA CORDA”); l’articolo 
è facoltativo. In alcuni casi è necessario 
solo il verbo (in quali, sta a voi scoprir- 
lo). Per spostarsi basta l’iniziale della 
direzione voluta (“N”, “S”, “E”, “O”) 
oppure “SU” o “GIU”. Altri comandi 
particolari sono “I” (inventario: un elen- 
co degli oggetti portati); “R” (ricapitola: 
ripete la descrizione); “SAVE” e 
“LOAD”, per registrare e riprendere la 
situazione di gioco nel caso si voglia so- 
spendere la partita in corso; “STOP”, 
per terminare e ricominciare da capo 
l'avventura. 
I comandi vanno digitati in maiuscolo. 
Non è necessario usare lo shift, in quan- 
to la POKE alla linea 120 provvede 
automaticamente a selezionare il CAPS 
LOCK MODE (l’effetto contrario si può 
ottenere mediante POKE 23658,0). 
Qualche nota sul programma. Innanzi 
tutto, poiché il divertimento principale 
in un adventure è la sorpresa, è bene 
digitare il listato il più “distrattamente” 
possibile, senza cercare di scoprire cosa 
fa e come funziona il programma. 
L’analisi del listato può essere fatta in 
un secondo tempo, dopo aver risolto 
l'avventura... 


Qui programma è un semplice 
u 
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Descrizione del programma 


Linee 
100-490 


500-550 


600-650 

700-810 

1000-1100 
2000-2171 
3000-5520 
6000-6080 
7000-7010 
8000-8010 
8500-8540 
9000-9030 


Commento 

ciclo comandi; a seconda del verbo, salta alla parte di pro- 
gramma corrispondente 

nuova locazione; chiama la subroutine corrispondente al 
valore della variabile LOC 

inventario 

descrizione luogo e oggetti presenti 

spezza la stringa in input nelle due parti “verbo” e “oggetto” 
descrizione e uscite delle locazioni 

esecuzione comandi 

inizializzazione 

SAVE 

LOAD 

decifra messaggi particolari 

fine gioco 


Per lo stesso motivo alcune parti del 
programma sono state confuse median- 
te una semplice cifratura. È opportuno 
quindi digitare con estrema attenzione 
queste parti, così come del resto tutto 
il listato, in quanto anche un piccolo 
errore, pur senza bloccare il program- 
ma, può produrre dei risultati impreve- 
dibili e rendere l'avventura impossibile 
da risolvere. 

Una nota particolare merita la routine 
di salvataggio: è ripresa da una rivista 
inglese e permette di salvare su nastro 
le sole variabili di un programma. Il 
trucco sta nel far coincidere la variabile 
di sistema PROG con la VARS: in que- 
sto modo il programma si restringe alla 
sola area variabili, e solo quest’ultima 
viene registrata su nastro; per ripren- 


derla si userà MERGE. 


Infine, qualche consiglio per i novizi in in un’avventura di dimensioni così limi- pre con molta attenzione le descrizioni 
questo tipo di gioco. In primo luogo è tate; diventa invece indispensabile in dei luoghi: a volte certi particolari sem- 
consigliabile disegnare una mappa dei giochi che si svolgono su un territorio brano solo decorativi, ma spesso na- 
luoghi visitati: ciò risulta comodo anche più esteso. Inoltre, occorre leggere sem-  scondono indizzi fondamentali... 


L’isola del faro 
versione per ZX Spectrum 16K/48K 


1] REM by Federico Frezza 1984 
10 GO SUB 6000 

20 GO SUB 500 
100 REM ciclo comandi 


120 POKE 23658,8: INPUT "Cosa vuoi f 


are LINE) c$: IF c$=" THEN 
GO TO 120 

130 PRINT 'c$: GO SUB 1000 

140 IF v$="N" OR v$="S" OR v$="E" 


OR v$="0" OR v$="SU" OR v$="GIU 


" THEN GO TO 460 
150 IF v$="R" THEN GO TO 700 


160 IF v$="AIUTO" THEN GO TO 5500 


170 IF v$="I" THEN GO TO 600 


180 IF v$="PRENDO" THEN GO TO 3000 
190 IF v$="POSO" OR v$="GETTO" OR v$ 


="LASCIO" THEN GO TO 3500 

200 IF v$="APRO" THEN GO TO 4000 

210 IF v$="ROMPO" OR v$="SPEZZO" 
THEN GO TO 4200 

220 IF v$="ENTRO" OR v$="SALGO" 
THEN GO TO 4300 

230 IF v$="SPOSTO" OR v$="MUOVO" 
THEN GO TO 4400 

240 IF v$="METTO" OR v$="INDOSSO" 
THEN GO TO 4600 


250 IF v$="LEGGO" THEN GO TO 4700 
260 IF v$="SCAVO" THEN GO TO 4800 
270 IF v$="ACCENDO" THEN GO TO 4900 


280 IF v$="SPINGO" OR v$="PREMO" 
THEN GO TO 5000 

290 IF v$="TOCCO" OR v$="TASTO" 
THEN GO TO 5100 


300 IF v$="NUOTO" THEN GO TO 5200 


310 IF v$="STOP" THEN GO TO 9000 
320 IF v$="SAVE" THEN GO TO 7000 
330 IF v$="LOAD" THEN GO TO 8000 


450 PRINT "Non capisco.": GO TO 100 


460 


490 
500 
510 


520 
530 
540 
550 
600 
605 
610 
620 


630 
640 


650 
700 
7710 
730 
740 
750 
760 
770 
780 
790 


800 
810 
1000 
1005 
1010 


1020 
1025 
1030 
1040 
1050 


IF VAL v$ THEN LET loc=VAL v$: 
GO TO 500 

PRINTEUNON puoi!" 60 TO: “00 
REM nuova locazione 

RESTORE 520: READ n,s,e,0,su,giu 


DATA 0,n,njmn,n,n 

GO SUB 2000+1lo0c*10 

GO SUB 700 

GO TO 100 

REM inventario 

PRINT "Stai portando: " 

LET £=0: FOR i=1l TO 9 
ERNNO INTO (GF) STHEN EER S£=T: 
PRUNPATABRZIrS (9) ento SI) 
NEXT i 


THRENO:LECTHEN PRINT "rt. nient 
e" 
GO TO 100 


REM descrizione luogo 

(CHSESEPR'ENIDASIS 

FOR i=l TO 9 

IF o(i)=loc THEN G0 TO 770 

NEXT i 

GO TO 100 

PRINT '"Inoltre puoi vedere: " 
FOR i=i TO 9 

IF o(i)=loc THEN PRINT TAB 2;r$ 
(zz (19) 

NEXT i 

GO TO 100 

REM analizza input 

LETVo BT 

TERCS SO LE ATHENCSRE CS (0) 
THEN LET c$=c$(2 TO ): GO TO 1 
010 

FOR i=l TO LEN c$s 


TESS EPRHENS GOTTO MNOS5O 
LET v$=v$+cS(i) 
NEXT i 


LET c$=c$(i TO ) 
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1060 


1070 
1075 
1080 
1090 
1100 
2000 
2010 


2011 
2020 


2021 


2022 
2023 


2024 


2029 
2030 


2031 
2040 


2041 
2050 


2051 
2060 


2061 


2070 


2071 


2080 


2081 
2090 


TENCSSO LIUSTHENVISLE Se SIGUENT ES) 
“." THEN LET c$=c$( TO LEN c$-1 
): GO TO 1060 

FOR i=LEN c$ TO 1 STEP_.-1 


IF c$(i)=" " THEN GO TO 1100 
LET w$=CHR$ (CODE c$(i)+32)+wS 
NEXT i 
RETURN 


REM locazioni 

LET 1$="Sei in una pineta.C'e' u 
n'alturaa nord, una radura a est 
». Altre uscite sono ad ovest e a 


sud.": LET n=2: LET '‘e=9% LET o0= 
5g PRas=7 
RETURN 


IF cont=4 AND NOT 0(1) THEN 
GO TO 2023 


LET l$="Sei su un'altura. Puoi v 
edere il mare, e un faro su un 
‘isola poco distante dalla cost 
a.Ad estc'e' un brusco precipizi 
o, ad ovest un pendio,a sud la 
pineta.'t: LET \e=3: LET'o=4: 

LET s=1 

RETURN 

PRINT "Sei sull'altura. Senti a 


qualchedistanza il rumore delle 
pale diun elicottero. Dopo poco 
tempo, l'elicottero appare e ti 
lancia una scala e tu fuggi in s 
alvo!!" 


PRINT '"CONGRATULAZIONI, hai con 
cluso felicemente questa avven 
Turati t!aà/60 TO 9000 

RETURN 

PRINT ''"Provi a discendere, ma 
perdi l' equilibrio e precipiti 
su delle rocce. Sei morto.": 

GO TO 9000 

RETURN 


LET l1$="Sei su un dolce pendio. 
A est c'e' un'altura, a sud uno 
spiazzo.": LET e=2: LET s=5 
RETURN 


LET l$="Sei in uno spiazzo sterr 


ato. Puoi andare a nor4,a sud 
paWest. bs BRran=4:MbETS=60 

LET e=l 
RETURN 

LET l$="Sei su un sentiero. Puoi 
andare a ovest, a nord e a est. 
‘eb bBloo=st 0 EET n=5 TEBILe=/ 
RETURN 


LET l1$="Sei ai margini della pin 
eta. Il terreno e' ricoperto di 
foglie. A ovest c'e' un sentiero 
,r a norde a est la pineta.": 
LET n=1: LET e=8: LET 0=6 
RETURN 
LET 1$="Sei in una fitta pineta. 
Puoi andare a nord e ad ovest 
+": LET n=9: LET 0=7 
RETURN 
LET l1$="Sei in una radura nella 
pineta. Le uscite sono a ovest e 
a sud.": LET o=l: LET s=8 
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2091 
2100 


2101 
ZIO, 


2401 


2112 
2120 


INA: 
2130 


2131 


2132 
2140 


2141 
2150 


2154 
2160 


2161 


2162 
2170 


PAT 
3003 


3005 
3010 


3020 


3030 
3040 
3050 
3505 
35410 


RETURN 

LET 1$="Sei all'ingresso di una 
spiaggiaprivata. Puoi vedere una 
cabina abbandonata. Le uscite p 


ortano aest e a ovest.": LET e=6 
sObBI o=1 
RETURN 


LET 1$="Sei su una spiaggia.": 
IF NOT sca THEN LET l$=1$+" In 
travedi qualcosa sepolto nella 
sabbia." 

LET 1$=1$+CHR$ 13+"A nord ci son 

o alcuni scogli. Altre uscite 


sono a sud e a est.": LET n=13: 
LET s=12: LET e=10 

RETURN 

LET l$="Sei su una spiaggia. L'u 
scita e" ca nord. !: LET n=ll 
RETURN 

IF NOT ins THEN PRINT ''"Sei su 
gliatiscogliiGiilscogla *sonoWba 
gnati, cosi' scivoli e batti vi 
olentemente latesta. Sei morto." 
: GO TO 9000 

LET 1$="Sei sugli scogli. Cautel 
al Puoi vedere un'insenatur 
a a norde la spiaggia a sud.": 
LET n=14: LET s=11 

RETURN 

LET 1$="Sei in un'insenatura tra 
gli scogli. L'uscita e'.a s 
uditi PLEIR.S=13, 

RETURN 

LET l$="Sei sull'isoletta col fa 
ro. A nord, ai piedi del far 
O, cele! una porta." 

RETURN 

IE NOT acs THEN LET lS="E' buio 
pesto. Non riesci a vedere 
nulla.": RETURN 

LET 1$="Sei in una stanza all'in 
terno del faro. La porta e'a 
sud, e c'e' una scala che condu 
ce di Sopra LETs=15: GETS 
u=17 

RETURN 

LET cont=0: LET l$="Sei in cima 
alfaro Ce seiun grosso inter 
ruttore sulla paretee un buco ne 
l pavimento con una scala che po 
GC gus enni ga'u=l6 

RETURN 

IF 0gg>=4 THEN PRINT "Non puoi 
PoltateWtal'eramtoggettifs rs zco ito 
00 

DIM s$(9): LET s$=w$ 

LET £=0: FOR i=l TO 8 

IF o$(i)=s$ AND o(i)=loc THEN 
LET o(i)=0: LET f=l: LET ogg=o0g 

g+1: PRINT "Ok..." 

NEXT i 

IF NOT f THEN GO TO 490 

GO TO 100 . 

DIM s$(9): LET s$=w$ 

LET £=0: FOR i=l TO 8 


3520 


3530 
3540 
3550 
4010 
4020 
4040 
4100 
4120 
4210 


4220 


4310 


4320 


4330 


4410 


4420 
4430 


4500 


4510 


4520 


4610 


4620 
4710 


4720 


4810 


4840 


4910 
4920 


5010 


IF o$(i)=s$ AND NOT o(i) THEN 
LET#0o((1)-loc-WLET =] #4bEWogg= 
Ogg ePRENTENO KR TESS =8 
THEN LET ins=0 

NEXT i 

IF NOT £ THEN GO TO 490 

GO TO 100 

IF w$<>"cabina" THEN GO TO 41 
00 


IF loc<>10 OR 0(4) OR apc 
THEN GO TO 490 


PRINT RNORK LET ape=li: (LET o 
31060; TO 700 

IF w$<>"porta" OR loc<>15 

OR app THEN GO TO 490 
PRINFELOK Rate hEn= 16M CO MRO 
00 


IF w$<>"bottiglia" OR 0(2) 
THEN GO TO 490 


PRINT "Ok...": LET ogg=ogg-1l: 
LET 0(2)=-1: LET 0(6)=loc: 
GO TO 700 


IF w$<>"barca" OR 0(9)<>loc 
THEN GO TO 490 

PRENDO OKI: ME Cloc=1l4 THEN 
LET loc=15: LET 0(9)=loc: 

GO TO 500 
LET loc=14: 
GO TO 500 
IF w$<>"foglie" THEN GO TO 45 

00 


IF loc<>7 OR spf THEN GO TO 4 
90 


LET 0(9)=loc: 


LET spf=1: LET 0(4)=7: PRINT "Ok 
sic MEGORTO 700 

IF w$<>"interruttore" OR loc 
<>17 THEN GO TO 490 

LET cont=cont+1: LET acf=NOT acf 
:OPRINTUILI.faro si Utile gace 
THEN PRINT "accende.": GO TO 1 
00 


PRINT "spegne.": GO TO 100 
IF w$<>"sandali" OR 0(3) OR in 
s THEN GO TO 490 


PRINDE Ok" VEETSins=il 

GO TO 100 

IF w$<>"messaggio" OR 0(6) 

THEN GO TO 490 

LET m$="C';' s?r<@@=..."+CHR$ 13 

+" A??;nd<,sp;gn<,a??;nd<,sp;gn< 
<, £:r="+CHR$a13+"asMv<een<shis>1 

I: l@>r:. 9=1L-_@ps=r=<"3 (GO NSUB. pr 

inteteGORTORL00 

IF loc<>11 OR sca THEN 


PRINT "E" una fatica inutile... 
is MGORTONT:00 

PRINITESOK 0: LET scali LETO 
2);= i: GO TO 700 

IF w$<>"torcia" OR 0(8) THEN 

GO TO 490 

PRINT "Mancano le batterie...": 
GO TO 100 

IF w$<>"pulsante" THEN 

GO TO 4500 


5020 
5030 
5110 
5120 
5210 


5220 


SINO 


5520 


6000 
6005 


6010 


6020 


6030 


6040 
6050 
6060 


6070 
6080 
7000 


7010 
8000 


8010 
8500 
8510 


8520 
8530 
8540 
9000 
9010 


9020 
9030 


IF loc<>16 OR acs THEN 

GO TO 490 

BRINCESOLS US EBT O (Male 
LET acs=1: GO TO 500 

IF loc<>16 THEN GO TO 490 


LET m$="P>=< s;n@<r; >n: sp; ?<; 
d< p>lsane:s>lm>r= 003 
GOWSUB print: 60 TO 100 
IF loc<>11 AND loc<>12 
THEN GO TO 490 
PRINT "Entri in acqua. In breve 


tempo la corrente ti trascina a 
1 largoe anneghi.": GO TO 9000 
TE loc=l6 THEN LET m$="E®* <I >: 
S= d<é :nd:r; @:s@=n<..": 

GO SUB print: GO TO 100 
PRINT "Ne avrai bisogno...": 

GO TO 100 
REM inizializzazione 
DIM r$(9,3): DIM o$(9,9): 
9) 

RESTORE 6020: FOR i=1 TO 9: 

READ r$(i),o$(i),o(i): NEXT i 
DATA "un","forziere",-1,"una","b 
Ottiglia!,-l,dei>!sandal'i!.31 
UunaUnliehdlave MS] 

DATA "un", "coltello",9, "un", "mes 
saggio",-1,"una","corda",4,"una" 
su tOrciaw,2, una, barcat,là 

READ loc,0gg,cont,apc,app,spf,in 
S,sca,acs,acf 
DATA 1,0,099,099,099,099,099,0g9g 
1099 OG 
LET print=8500: 


DIM o( 


LET d$="aeiouct" 


PAPER 7: INK 0: BORDER 7: CLS 
RETURN 
LET pk1=PEEK 23635: LET pk2= 


PEEK 23636: POKE 23635, PEEK 2362 
7: POKE 23636,PEEK 23628: SAVE " 
situazione": POKE 23635,pk1: 
POKE 23636,pk2 
GO TO 100 
PRINT '"Fai partire il nastro... 
": MERGE "situazione" 
GO TO 100 
FOR i=1 TO LEN m$ 
IF m$(i)>"9" AND m$(i)<"A" 
THEN LET m$(i)=A$ (CODE m$(i)-5 
7) 
PRINT m$(i); 
NEXT i 
RETURN 
REM fine gioco 
INPUT "Vuoi riprovare? "; LINE c 
$: IF c$="" THEN GO TO 9010 
IF c$(1)="N" THEN STOP 
RUN 
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. DISTRIBUZIONE: un anello : 
strategico tra fornitori 
e utenti finali. 


Il software in TV e Publ 

patto o com patibile? . È, hi 

iochi e Compi ‘i 
i 


Sottwaree 


=2i%Dealer: runica rivista dedicata 
al mondo della distribuzione di home 
e personal computer, software e libri. 


=Dealer : è il primo mensile italiano per 
chi vende home e personal computer, 
software, libri e accessori di informatica. 
Uno strumento indispensabile per 
computershop, librerie e cartolibrerie. 

Su SsftDealer, inviato solo in 
abbonamento, troverete tutte le notizie 
più utili, recensioni, test, prove di 
software, articoli di marketing, classifiche 
dei programmi e dei libri più venduti 

in Italia. 


SOFT DEALER è un'idea 


Uffici Tecnici e Commerciali: 
20125 Milano - Via M. Gioia, 114 
Tel. (02) 603415-680851 


ABBONATI A ==:: Dealer : Un modesto investimento 
per essere informati sul futuro 

i Ritagliare e spedire in busta chiusa a: 

PROGRAM EDITRICE, Via M. Gioia 114, 20125 MILANO 


i DO Desiderosottoscrivere un abbonamento annuo (10 numeri L. 25.000) 
alla rivista SOFT DEALER 
O Allego assegno di L. 25.000 intestao a PROGRAM EDITRICE 


d ISTE init Banane OA 
O. Hoeffettuato pagamento tramite vaglia postale. 

Ho effettuato versamento su ccp n. 34510206 

intestato a Program-Milano e allego fotocopia ricevuta. 


di P. Steer 
trad. e adatt. 
di Guido Bertolotti 


Gite al comando del cargo spaziale 
Spectrum e il vostro compito è di 
assicurare i rifornimenti alla piccola co- 
munità che vive su Irs II. 

Sulla vostra traiettoria si vengono a tro- 
vare degli asteroidi che dovrete natural- 
mente evitare. La vostra nave (caratte- 
re “H”) è controllata dai tasti 0 e 8, che 
vi permettono di spostarvi a destra e a 
sinistra e di saltare nell’iperspazio 
(uscendo a destra si rientra a sinistra e 
viceversa). Avete anche l’energia suffi- 
ciente per dieci colpi laser, che vi apri- 
ranno la strada fra gli asteroidi. Il laser 
è controllato dal tasto 1. 

Il gioco termina con la collisione con un 
asteroide o con l’atterraggio sulla pista 
di Iris II. Per ricominciare è necessario 
dare RUN. 

E un gioco molto sofisticato, per stare 
in 1K! 


Attenzione! 


Se “Asteroidi” viene salvato su cassetta 
da uno ZX81 con espansione di memo- 
ria, non risulta più caricabile su ZX81 
senza espansione. Se non si vuole stac- 
care l’espansione di memoria (sempre 
a computer spento!), si può dare il co- 
mando POKE 16389,68 prima di sal- 
varlo. In questo modo il programma su 
cassetta può essere caricato su ZX81 
con o senza espansione, indifferente- 
mente. 

Tutto questo accade perché lo ZX81 
salva sempre su cassetta non solo il pro- 
gramma, ma anche lo schermo e le va- 
riabili. Ora, uno schermo bianco su uno 
ZX81 senza espansione è formato da 
25 NEWLINE; su uno ZX81 espanso è 
invece formato da un NEWLINE e da 
24 righe, ciascuna contenente 32 spazi 
e un NEWLINE alla fine di ciascuna, per 
un totale di 1 + (32 + 1) x24 = 793 byte. 
Si capisce benissimo come uno ZX81 
inespanso, che già a malapena riesce a 
contenere “Asteroidi”, non possa avere 
lo spazio per caricare uno schermo 
bianco “espanso”. Il rimedio (POKE 
16389,68) consiste nell’abbassare la 
variabile di sistema RAMTOP dello 


Llinnnennnn®[___L_I_IÎ_ LI | 


ZX81 espanso al livello dello ZX81 ine- 
spanso. In questo modo, dando il co- 
mando SAVE, il computer (come sem- 
pre) esegue prima un CLS, riducendo 
lo schermo alle dimensioni minime, e 
poi salva il tutto. 

Questo “trucco” può essere utilizzato 
anche con programmi da 16K, poiché 
riduce di una quindicina di secondi i 


tempi di SAVE e LOAD. 


Per risparmiare memoria 


Il listato di “Asteroidi” può risultare po- 
co comprensibile, poiché in vari punti 


sono presenti espressioni come: NOT 
PI, SGN PI, CODE “+”, VAL “10”, ecc. 
Queste non sono altro che “perifrasi” 
per non scrivere esplicitamente 0, 
1, 21, 10, e questo al fine di risparmiare 
memoria. Se in una linea di programma 
è presente un numero scritto esplicita- 
mente, infatti, il computer scrive, di se- 
guito ad esso, la sua rappresentazione 
binaria. Nel listato, tuttavia, questa rap- 
presentazione risulta invisibile, in quan- 
to è preceduta dal carattere con codice 
126, che ha la particolarità, in un lista- 
to, di rendere invisibile se stesso e i cin- 
que byte che lo seguono. 

Provate questo programmino: 
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5 REM LETTORE MEMORIA 

10 FOR A=VAL “16509” TO VAL 
SPEEKM639647*#25674 WS PEEK 
1639741 


Descrizione delle variabili 


W l'energia, che viene ridotta ad ogni colpo del laser. Riducendone il sm 
20 PRINT CHR$ PEEK A È valore iniziale (linea 5) si può rendere il gioco più difficile 
30 IF PEEK A=VAL “118” THEN D la colonna dello schermo su cui si trova l'astronave 


PRINT 
40 NEXT A 


Il programma legge la zona di memoria 
in cui esso è immagazzinato, trascriven- 
do quindi sul video il proprio listato. 
Notate che le uniche differenze rispetto 
al listato ottenuto con LIST sono: la pre- 
senza al posto di ogni numero di linea 
della sua rappresentazione binaria, se- 
guita dalla lunghezza della linea, scritta 


mat in forma binaria (4 byte in tutto) piana COMBO: variabili 

aci nr n pai 15-60 ciclo di avanzamento fra gli asteroidi 
Eliminate ora i VAL “ ’ dal program- dels ie di atterraggio 
mino, lasciando i numeri scritti in forma 1000-1020 I 


esplicita. Con un RUN si vede ora che 
ogni numero è seguito da un “?” (CHR$ 
126) e dalla propria rappresentazione 
binaria (5 byte). Facendo i conti, si vede 
che usando VAL “ ’ si risparmiano, 
nonostante le apparenze, 3 byte per 
ogni numero. Il risparmio è ancora mag- 
giore racchiudendo nel VAL “ —’ una 
complessa espressione, o usando NOT 
PI, SGN PI, CODE “$” al posto di VAL 
ROSA VAISGISSVALE13" eco. 

Ogni medaglia ha il suo rovescio: rispar- 
miando memoria in questo modo, infat- 
ti, si ottiene un rallentamento nell’ese- 
cuzione del programma, per cui questi 
“trucchi” vanno usati solo se si ha poca 
memoria a disposizione. 


E variabile di loop, conta quante posizioni l’astronave è riuscita ad avan- 
zare. Cambiandone il limite da 149 a un altro numero (linea 15) si 


varia la durata del gioco 


S variabile di loop, usata sia nella routine del colpo laser (la potenza del 
laser può essere variata cambiando il limite di S alla linea 100) che in 
quella che visualizza la pista di atterraggio 


Descrizione del programma 


sidua. 


visualizzano l’eventuale collisione, il punteggio e l'energia re- j 


Provate ad aggiungere al programmino 
la linea: 


50 PRINT 5 + 4 


Con un RUN si vede che le rappresenta- 
zioni binarie sono al loro posto. 
EDITando ora la linea e aggiungendo 
un REM all’inizio, così: 


50 REM PRINT 5 + 4 


si vede che le rappresentazioni binarie 
spariscono (in una REM sono infatti inu- 


tili, visto che il computer non le legge 
mai e a noi resterebbero comunque invi- 
sibili). Poiché il computer, quando se ne 
accorge, cancella dalle REM i byte con- 
tenenti 126, più i cinque byte successi- 
vi, è molto consigliabile NON EDITARE 
le REM contenenti linguaggio macchina. 
Se esse contengono qualche codice 
126, che corrisponde a un'istruzione 
usatissima (ld a, (hl)), verrebbero infatti 
“mutilate” di qualche pezzo, spesso con 
la conseguenza della perdita del pro- 
gramma in memoria quando le routine 
accorciate vengono esequite. 


SOUETTUEUali ilo 120 NEXT 5 
TOTEERIO=Va cessi 125 LET iW=Wj-3GN PI 
iS ReRiEeSsno Rep Te UAE gar 1509 IF W:S5GN PI THEN PRINT "ENE 
28 PRINT AT VAL "139", INT iRND* RGIA ESAURITA" 
BE A 1355 RETURN — 
25 LET D=b+iINKEY$="9")- (INKEY 10DA PRINT “$#" 
$="3) 1019 PRINT "PiiNTEGGIO=";E 
fco IF D:VAL "S" THEN LET D=MOT 10209 PRINT 'EMERGIA RESIDUA="; 1) 
TI 
,2_39 IF G:HOT PI THEN LET D=aUVAL 
ta: 0 
40 IF INKEY$="1" THEN 6G03UB VA 
ERI era fe 
de SCROLL 
45 PRINT AT MOT PI,D; 
Se IF VUdL “’FEER (PEEL 163395+25 
S*+PEER 16399) “sC00E "@* THEN GOT 
D MAL “iena” 


cn 
n 
TI 
HH 
z 
Dei 
x 


PAST RE IOAUREEESoO 


HI 
Dn» 
LODI JJ HH (TETI L 
TAoanaunine 
n 
CI 
Dn 
i 


SCROLL 
PRINT =" + en 
NEXT 5 
IO CLS 
95 GO0T0 VAL "lalo" 
1009 FOR S=5GN FI TO UGL "E" 
105 IF W:5GN PI THEM RETURN 
1109 PRINT AT 5,D;"-" 
115 PRINT AT S,D;" " 
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di Giovanni Malinverni 


Il più tradizionale gioco di società 
trasferito su Spectrum 48K per 
garantirvi ore di divertimento. 


1 programma è la fedelissima trasposi- 

zione, effettuata interamente in BA- 
SIC, del noto gioco da tavolo a cui si 
ispira il titolo. Per onestà devo dire 
che in effetti il listato non è tutta farina 
del mio sacco: il “main program” è stato 
infatti copiato dalla rivista “Computer 
& Videogames” del maggio 1984, suc- 
cessivamente da me rivisto e, spero, mi- 
gliorato, soprattutto per quanto riguar- 
da la presentazione grafica, che prima 
era piuttosto carente. 
I messaggi sono stati interamente tra- 
dotti, compatibilmente con lo spazio ri- 
stretto ad essi dedicato — è il caso della 
scritta PLAYER (giocatore), che ho pre- 
ferito non modificare — e con le eccezio- 
ni delle scritte ormai entrate a far parte 
del linguaggio corrente (come GAME 
OVER o, per rispondere “si” o “no”, 
Y/N). Credo che il risultato complessi» 
vo sia buono, e senz'altro superiore a 
quello conseguito da programmi analo- 
ghi esistenti in commercio. 
Il gioco è stato accuratamente collauda- 
to, senza trovare bug di alcun genere, 
per due intere partite, di cui una durata 
oltre tre ore; nessun problema, quindi, 
sotto questo aspetto e, prima di dare 
alcune spiegazioni sul funzionamento 
del programma, tanti auguri di buon di- 
vertimento a tutti! 


Come si gioca 


Una volta caricato il programma il gioco 
comincia con tre schermate di istruzio- 
ni, prima di passare alla partita vera e 
propria. I giocatori, i cui segnalini ver- 
ranno colorati arbitrariamente dal com- 
puter, devono essere da un minimo di 
due a un massimo di quattro. 

A questo punto, nella parte destra dello 


schermo, appare il tabellone di gioco, - 
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dove, per ovvi problemi di grafica, la 
toponomastica viene visualizzata con 
sole due lettere (es.: CR=Corso Raffael- 
lo). 

All’esterno del tabellone, sulla parte si- 
nistra dello schermo, vengono mostrati 
volta per volta tutti i dati relativi al gio- 
catore di turno: colore segnalino, capi- 
tale a disposizione e terreni posseduti. 
“Dentro” il tabellone, invece, appaiono 
dadi, probabilità, imprevisti e il menu a 
disposizione del giocatore, che, a secon- 
da del tasto premuto, potrà effettuare 
le operazioni più opportune. Non abbia- 
te fretta di inserire i dati, in quanto uno 
dei difetti del programma è una relativa 
lentezza nell’accettazione degli input, 
soprattutto se l’inserimento è di due o 
più caratteri; digitate dunque con calma 
le vostre decisioni, facendovi guidare 
dai click che sentirete in corrispondenza 
di ogni carattere inserito. 

Capitando su un terreno invenduto vi 
verrà chiesto se volete procedere all’ac- 
quisto: in caso la risposta sia negativa, 
verrà aperta un’asta da cui, se volete, 
potete uscire schiacciando il tasto 0. 

Il menu principale è autoesplicativo: se 
volete acquistare case, alla domanda 
“per?” dovrete rispondere con la sigla 
di uno dei terreni appartenenti al blocco 
su cui volete costruire (che naturalmen- 
te dovete interamente possedere). Le 
opzioni successive servono a piazzare 
una casa su ogni terreno del blocco (op- 
zione s) o solamente sul luogo da voi 
precedentemente indicato, restando al- 


Micropoli 
versione per ZX Spectrum 48K 


l BORDER 5: PAPER 0: 


BRIGHT 1; PAPER 4; 
Oreste 
OLIIA TO 


PAPER 2; 


Vanni Malinverni 
5 PRINT 


edizione elettronica", 
issimo gioco da tavolo","si sono 
mantenute le regole generali un 
iversalmente conosciute.";AT 14, 
0;"Il computer fa praticamente", 
"tutto,importante e'inserire con 
","precisione quanto di volta in 
ur, Uvoltalviene richiesto." 13 
INK UG APl870T terreni 

sono contraddistinti", "dalle sol 
e iniziali(es:VC=VICOLOCIECO) " 14 


6 PRINT 


VMRENK 6: MP OT 0708 MDRAWM2:5 5/08 
DRAW 0,175: DRAW -255,0: DRAW 0 
1-175 

8 PRINT FLASH 1; PAPER 3; INK 7; 
AT 21,0;" PREMERE ENTER PER 
CONTINUARE ": PAUSE 0 

VORCIESÌ PRINT NPAPERZIO:SSINK 02: AT2 


r6;"ISTRUZIONI GENERALI" 
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CLS 
INK-77AT 3,9; "Spectrum 
CNR 7 ATROe57,i 
“;AT 6,10;" MICROP: 


INK 6;AT 8,0; "Tradotto 
,rmodificato,adattato da 


INK 7;AT 10,0; "In questa 
"del famos de 


l'interno del menu per una successiva 
edificazione (a). 

Nel caso non abbiate denaro liquido a 
sufficienza per far fronte a un pagamen- 
to, vi verrà mostrata la scritta “insuffi- 
cienti “£££”, assieme a un menu che 
comprende la possibilità di vendere o 
ipotecare case o terreni, se non addirit- 
tura di uscire definitivamente dalla par- 
tita (quit game). L'opzione “ipoteche” 
vale sia per le ipoteche da accendere 
che per quelle da riscattare: il program- 
ma sa di cosa avete bisogno e ve lo 
fornirà senza errori. Un terreno ipoteca- 
to viene contraddistinto da un asterisco. 
Tenete presente che il prezzo di riscatto 
dell’ipoteca aumenta del 10% di turno 
in turno, e che il compratore di un terre- 
no ipotecato acquista... anche l’ipoteca, 
la quale potrà essere comunque estinta 


° PRINT 
48k"; 


successivamente. 

Non mi pare ci sia altro da spiegare, 
visto che gli output del programma so- 
no, o dovrebbero essere, più che com- 
prensibili. Raccomando solo di medita- 
re accuratamente ogni inserimento, da- 
to che non è prevista una funzione “un- 
do” in grado di cancellare una decisione 
presa. Allo stesso modo, il digitare i dati 
troppo velocemente o distrattamente vi 
porterà senz’altro a commettere errori: 
uomo avvisato... con quel che segue. 
Ad ogni modo non dovrebbe essere pos- 
sibile far “crashare” il programma, poi- 
ché tutti gli input vengono controllati ed 
eseguiti senza bisogno di digitare EN- 
TER. Nel caso di un BREAK, per ri- 
prendere il gioco date CONTINUE se- 
guito da ENTER. 


11 PRINT AT 4,0;"1)Per inserire i n 
omi delle vie","digitare le rela 
tive iniziali","come da tabellon 
cho,2) PeregiliamportiNde:ll'elftvar 


ue ie contrattazioni,digitare solo 


CES. 


l'alecwrrabnel'ativa."9 3) In'caso 
di ASTA PUBBLICA vengono acc 
n ettate solo offerte >= 
1 valore effettivo." 
PRINT AT 13,0;"4)In caso di AC 
QUISTO o VENDITA CASE(O 
ALBERGHI)vi sono 3 opzioni a s 
celta:",,"(/N)per risposta dire 
tta","S=acquisto o vendita inter 
O SET di case(o alberghi)", "A=co 
n ulteriore aumento" 
PRINT FLASH 1; 
ASRARZIINO rit 
CONTINUARE ER 
PRINIIATES,0 ON grocator 
i (PLAYERS) sono contraddistinti 
da 4 colori:","1=blu/2=ro0ss0/3= 


al 50% de 


PAPER 3; INK 7; 
PREMERE ENTER PER 
PAUSE 0 


magenta/4=verde",,,"6)Tre volt 


e di seguito DOPPIO DADO man 
dano direttamente in prigione" 


15 PRINT AT 11,0;"COMUNQUE IL MIGLI 


OR SISTEMA PER GIOCARE E' 
O QUELLO DI 


PROPRI 
+ + .GIOCARE" 


PRINISATIN971070? 
IMENTO!!" 

PRINT PAPER 5; FLASH 1; INK 1 
sAT 21,0;"ATTENDERE UN ATTIMO PE 

R GIOCARE " 

FLASH 0 

GO SUB 9000 

RESTORE : GO SUB 1000: 
RANDOMIZE : GO TO 1500 

GO SUB 5000: IF CODE a$<48 OR 

CODE a$>57 THEN GO TO 100 

LET b$=a$: PRINT AT 11,0+13;b$ 
IF CODE a$=48 THEN GO TO 160 
TE INKEYSS>" ESRHENÙ (GO! TO N06 
LET asa 

FOR fi=0 (PONZ200 

DE MINKEXS<> BUTHENI SGETOa$= 
INKEYS$: GO TO 112 

NEXT i 

BEEP .005,25: IF CODE a$<48 OR 
CODE a$>57 THEN GO TO 114 

IF a$<>"" THEN LET b$=bS$+a$ 
PRINT AT 11,0+13;b$ 

IF INKEYS<>"" THEN GO TO 115 
LET asc 

FOR i=0 TO 200 

IF INKEY$<>"" THEN LET af= 
INKEY$S: GO TO 145 

NEXT i 

BEEP .005,25: IF CODE a$<48 OR 
CODE a$s>57 THEN GO TO 155 

IF a$<>"" THEN LET b$=bS$+a$ 
PRINT AT 11,0+13;b$ 

LET x=VAL b$ 

RETURN 

LETMa= =: SLETSb=ai 

FOR k=q TO p+1l STEP -1 

LET q=k: GO SUB 400 

LETI (V)ak=i 


BUON DIVERT 


GONSUBT380: NEXT k° GOLTOr380 
GEL Fas le ShET0b=-} 

FE G<pTHENI .GO TO 350 

LET f=9 


FOR k=q TO 40 

LET q=k: GO SUB 400 
LET p(y)=k+1 

GO SUB 380: NEXT k 

LET q=1: LET p(y)=1 
FOR k=q TO p-1l 

LET q=k: GO SUB 400 
LET p(y)=k+1 
GO SUB 380: 

RETURN 

FOR j=1. TO z 


NEXT k 


TE S()<>9L THEN CINKojs LETa= 
pP(j): GO SUB 460 

NEXT j 

LET q=p(y): GO SUB 450 

RETURN 

INK 0: BEEP .01,y*9-10 


IF q<12 THEN PRINT AT 21,(11-q) 
*2+©o5 "TU": GO TO 445 
IF q<22 THEN PRINT AT 
T,OstTUl'-:MGORPo,rd45 

IF q<32 THEN PRINT AT 0,(q-21)* 
2+0;"RS": GO TO 445 


(22-qg)*2- 


440 
445 
450 
460 


470 
480 
490 


495 
499 
500 


571 
SIT 


578 
579 


580 
581 
590 
600 


610 


620 


630 


640 
700 


710 
800 


810 
811 
812 
814 
815 
820 


825 
850 
860 
870 


880 
890 


PRINT AT (q-31)*2+1,28;"TU" 
LET q=q+a e 
FLASH 1: INK y 

IF q<12 THEN PRINT BRIGHT dee 


AT 21,(11-q)*2+0;"LM": GO TO 495 


IF q<22 THEN PRINT BRIGHT 1; 
AT (22-q)*2-1,0;"LM": GO TO 495 
IF q<32 THEN PRINT BRIGHT 1; 
AT 0,(q-21)*2+0;"LM": GO TO 495 


PRINT BRIGHT 1;AT (q-31)*2+1,28 
3 "LM" 

INK 0: LET q=q+b: FLASH 0 
RETURN 

LET n=INT (6*RND+1): LET dx=4:; 
LET dy=0+15 

LET a=n 

BRIGHT l: PAPER 7: GO SUB 700: 
GO SUB 600 

LET n=INT (6*RND+1): LET dx=15: 
LET dy=0+4 

BRIGHT 1: PAPER 7: GO SUB 700: 
GO SUB 600 

RESES=n 

BRIGHT 0 

PAPER 7: LET n=a+n: RETURN 

IF n=1 OR n=3 OR n=5 THEN 


PRINT AT dx+1,dy+1;"P": BEEP .0 

le=22 a 

IF n>l THEN PRINT AT dx,dy;"P": 
PRINT AT dx+2,dy+2;"P": BEEP . 

07=25 vi 

IF n>3 THEN PRINT AT dx+2,dy;"P 

": PRINT AT dx,dy+2;"P": BEEP .0 

20 ra 

IF n=6 THEN PRINT AT dx+1,dy;"P 

": PRINT AT dx+1,dy+2;"P": » 
BEEP .01,-25 pri 

RETURN 

PRINT. AT dx,dy;" “AT Axt1,dyY; 

" “;AT dx+2,dy;" " 

RETURN 

PRINT AT 3,1;" 
INK 0;"£?- m(y): 

LETSb=il 

IF m<0 THEN LET b=m(y)+m 

IF b<0 THEN GO TO 8800 

LET b=INT (m/20) 

IF b=0 THEN LET b=m 


Mr ATL3,0% 
RETURN 


LET v=ABS (m): LET c=m(y): LET d 
=ABS (b) 

IF v<20 THEN LET d=] 

FOR i=1l TO v STEP d 

LET m(y)=m(y)+b 

GO SUB 800: BEEP .02,50: PAUSE 4 
SMNEXIENO: 

LET m(y)=c+m: GO SUB 800 

RETURN 
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900 
950 


955 


960 
970 
975 
980 
990 
1000 
1005 


1010 
1020 
1030 
1050 
1060 
1070 
1080 
1092 
1150 
1200 


1210 


1220 


FOR i=8 TO 13: PRINT AT i,0+2;" 
Co NEXT de 
RETURN 
GO SUB 5000: PRINT AT 9,0+13;A$: 
LET B$=A$: GO SUB 5000: PRINT 
AT 9,0+14;A$: LET B$=BS+A$ 
RESTORE 1900: LET a$="xx": 
=0 
FOR \i=l TO. 28 
IF a$=b$ THEN 
READ a$,a,w,x 
NEXT i 


LET a 


GO TO 980 


DIM a(40,2): 
4): DIM p(4): 
VE DIM 16): 
: DIM x(10) 
FOR j=1 TO 40 
EORT=1StTOn2 
READ a(j,i) 
NEXT i: NEXT j 
FOR j=1 TO 18 
FOR1=i1: 'TO:t7 
READ b(j7i) 
NEXT i: NEXT j 


DIM b(18,7): 
DIM s(4): 
DIM h(4): 


DIM m( 
DIM c(le 
DIM g(4) 


DATA 60,2,10,30,90,160,250,60,4, 
20,60,180,320,450,100,6,30,90,27 
0,400,550,120,8,40,100,300,450,6 
00,140,10,50,150,450,625,750,160 
112,60,180,500,700,900,180,14,70 
r:2:00/7,550},,7:507, 9507200) 711617:808:22076 
00,800,1000 

DATA 220,18,90,250,700,875,1050, 
240,20,100,300,750,925,1100,260, 


10227,01:073307:8007:975710502:8072401 


1500 


1505 


1510 
520 


4550 


l:535 
1540 


1545 
1550 


20,360,850,1025,1200,300,26,130, 
390,900,1100,1275,320,28,150,450 
1000,1200,1400,350,35,175,500,1 
100,1300,1500,400,50,200,600,140 
0,1700,2000,200,25,50,100,200,0, 
0,1-:50,4,10,0,0,0,0 
FORNI=METOr4: LETI pio) = 
1)\= 500 6EEPES'()=0 
LET g(i)=0: NEXT i 
FLASH 0: BRIGHT 0: 
BORDER 7: INK 0 
LET £=0: LET o=8: GO SUB 900 
PRINT AT 10,0+3;"INSERIRE NUMERO 
" 


LET m( 
LET h(i)=0: 


PAPER 7: 


PRINT AT 11,0+3;"di PLAYERS(2-4) 
" 


IF INKEY$="" THEN GO TO 1535 
BEEP .005,25: LET z=(CODE 
INKEY$)-48 

IF z<2 OR z>4 THEN GO TO 1500 


GO SUB 5500 
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1560 
1561 
1562 
1563 
1565 
1566 
1569 
670 
1600 


1610 


1700 
1710 
1720 
1730 
1740 
1e4z50 
1760 
1770 
ya 


Zz5 
1780 


1783 
17/815 


1790 
1800 
1810 
1820 
1830 
1840 


1845 
1850 


bi855 


1856 
1857 
1858 
1859 
1860 
1865 
1870 


1875 
1880 


1885 
1890 
1895 
1896 
1897 


1900 


FOR y=1 TO z 

LET a=0 

FOR i=l TO zZ 
IF s(i)<>9 THEN 

NEXT i 

IF a=l! THEN GO TO 1800 

IF s(y)=9 THEN GO TO 2210 

LET t=3: INK 0: LET p=p(y) 
PRINT AT 0,0;"PLAYER";AT 1,1;y; 
INK y; BRIGHT 1;AT 1,3;"LM": 
GO SUB 800 

GO SUB 900: 
000 

RESTORE 1900: 
FOR: i=]-TO:.28 
IF i>14 THEN LET c=3 

READ a$,a,W,Xx 

PRINT ATlx,e;" pi 

LET b=a(a,l) 

IF b>500 THEN LET b=b-500 

LET d=INT (b/100) 

IF b>100 THEN LET b=b-100: 
GORTOr: 1/2 

INK 7: IF w>4 THEN INK 0 
IF da=y THEN PRINT AT x;C; 
PAPER w;a$ 

INK 0 
IF d=y 

CAZIONE 

NEXT i: RETURN 

GO SUB 900 

FOR i=1 TO zZ 

IF s(i)<>9 THEN 

NEXT i 

PRINT PAPER 4; 
GAME OVER ";AT 

E. "; PAPER. 55AT 

UMERO ";a 

LET m=a 
PRINT INK. 

AT: 11043); 
2,0+3;" " 

PRINT FLASH 1; PAPER 6; INK 0; 

AT 12,0+2;"GIOCHI ANCORA(Y/N)" 

GO SUB 5000 

TE a$<>Uy" THEN. GO TO’ 11857 

RESTORE 1900 

GO SUB 900 

FOR i=1 TO 28 

READ a$,a,wW,X 

IF i<23 THEN LET e=2: 
00 

LET b=a(a,l) 

IF b>100 THEN LET b=b-100: 
GO TO 1880 

IF b=8 THEN LET a(a,l)=8: 
GO TO 1895 

LET a(a,l)=0 

NEXIIOI 

GO SUB 8960 

LET p=p(m): 

0 


LET a=a+1 


GO SUB 1700: GO TO 2 


LET c=0 


AND b=1 THEN PRINT AT x, 


LET a=i 


INK 0 AT»870O#5- 1 
9,0+5;" VINCITOR 
10,0+3; "PLAYER N 


FLASH 1; PAPER 2; 


Mb AD 


GO SUB 68 


GO SUB 8960: GO TO 3 
DATA "Vvc",2,4,4,"VS",4,4,5,"MR", 
7,5, r"GS",9,5,8,"VV",10,5,9, "VA 
2,3 CATA 302 PU 6,3 
r 13, "CRU, 1770, 5, VEN 1970.1601, D 


1910 


2000 
2010 


2012 
2015 


2017 


2018 
2019 


2020 
2021 


2025 
2030 
2031 


2032 


2034 
2035 


2040 


2045 


2050 
2060 
2080 


2090 
2100 


2104 
2105 


241810 


2ilolo, 


2116 
2120 


DIO RO MP 22727 EMIR 
27207 LC 7252721 

DATATIVINI2 7 e CO 6057 CE 
730/60, 6, CI82r4 8 VRU7337,479 
PIA L,3574 a 0 IVES BR, pyi 
IO itISS6,0 SONO 
TRSNETZOr0 IMA USEUO 860 18, VERDE 
13707 2:07API 29,021 

IF s(y)<>0 THEN GO SUB 4300: 

GO TO 2002 

INK 0: GO SUB 900: 
r=0 

i=1 TO 5: 


GO SUB 800 


GO SUB 500: NEXT i 


IF a=b THEN LET t=t-1: LET r=l: 
LET s(y)=0 

IF t=0 THEN GO TO 4200 

IF s(y)<>0 THEN LET p=ll: 

GO TO 2100 

LET q=p: LET p=p+n 

IF p>40 THEN LET p=p-40: LET f= 
9 


GO SUB 300 
LET s=0: LET a=a(p,1l) 
IF a>500 THEN LET a=sa-500: 
LET s=1 
IF f=9 THEN GO SUB 900: PRINT 
AT 10,0+4;"SUPERATO IL VIA";AT 1 
1,0+4;"ACCREDITO £200": LET m=20 
0: GO SUB 810 
GO SUB 900: LET £=0 
IF a>100 THEN LET f=f+1: 
a-100: GO TO 2035 
IF a=0 THEN LET b=a(p,2): 
PRINT AT 10,0+4; "ACQUISTO £";b( 
DAN GOSTO ZOO 
IF f<>y AND a>l AND a<9 THEN 
GO TO 3200 
IF a=10 THEN GO TO 
IF a=l1 THEN GO TO 
IF a=12 THEN PRINT AT 11,0+3;" 
TASSA £";a(p,2): LET m=-a(p,2) 
3 GO SUB 810: Go TO 2100 
IF a=13 THEN GO TO 4200 
PRINT BRIGHT 1; PAPER 6;AT 15,0 
+0 ";AT 16,0+10;" PROB 
AB “>;AT 17,0+10;" ic 
BRIGHT 1; PAPER 2; INK 7;AT 4,0 
+4;" “";AT 5,0+4;" IMPREV 
US AIR 6,0+4;" " 
INK y: LET q=p: GO SUB 460 
IF r=1l] THEN GO SUB 0900: PRINT 
AT 10,0+5; "DOPPIO DADO";AT 11 
r0+5; "ALTRO TIRO": FOR w=1 
TO (80: NEXT w: (‘GO PO 2000 
GO SUB 900: INK y: PRINT AT 8,0+ 
2;"1=ACQUISTO TERRENI";AT 9,0+ 
2;"2=ACQUISTO CASE AR SS ,0+2 
;"8=VENDITA CASE "AT 12,0+2; 
"9=VENDITA TERRENI ";AT 13,0+2;" 


LET a= 


8000 
8100 


O=IPOTECHE L 

INK 0: PRINT AT 10,0+2;"3-7=NU 
OVO PLAYER ": GO SUB 5000 

GO SUB 900 

IF a$="1" THEN GO SUB 6000: 


GO TO 2110 


2130 


2140 
2150 
2160 
2210 
2500 


2600 
2605 
2610 
26105 
2620 
2630 


2640 
2650 
2700 
2710 
2720 
2730 
2740 


2750 
3000 


3020 
3022 
3025 
3030 
3036 


3037 


3200 


3210 


320)5 
3220 
3222 
3224 
3230 


3250 
32:59 
3256 


IF a$="2" THEN GO SUB 6500: 
GO TO 2110 

IF a$="8" THEN GO SUB 7000: 
GO TO 2110 

IF a$="9" THEN GO SUB 6900: 
GO TO 2110 

IF a$="0" THEN LET e=0: 

GO SUB 7500: GO TO 2110 
NEXT y: GO TO 1560 


DARA 025,4, 419 012 57 
20 2/21,/2/41,:2:50720:2873.0/,3 2733103578 
8:,,40),40,137,29,13 

RESTORE 2500 

LET e=0 

FOR i=1 TO 8 

IF e=1 THEN GO TO 2640 

READ v,Ww,X 


IF v=a OR w=a OR x=a THEN LET e 
=1 

NEXT i 

RETURN 

LET e=0: LET v=a(v,1): LET w=a(w 


ADELE TNSx=a (00,10) 

LERV> 00 0PHEN' LET vava=t00ì: 

GO TO 2710 

IF w>100 THEN LET w=w-100: 
GORTON27:20 

IF x>100 THEN LET x=x-100: 
GOITO 2730 

IF v>2 OR w>2 OR x>2 THEN LET e 
=] 

RETURN 

PRIENTI AT iliyzo+3p LO COMPERI? (Y/N 
) 

GO SUB 5000 

TERNA KEN PHEN RIGO RTOT3500 

LET b=a(p,2) 

LET m=-bi(b.,1): LET £=0: 
10: LET a(p,l)=2+(y*100) 
IF p=13 OR p=29 THEN LET a(p,1) 
=8+(y*100) 
GO SUB 1700: 
GO TO 2100 
PRINT AT 10,0+4;"RENDITA, PAGARE" 


GO SUB 8 


GO SUB 4000: 


PRINT AT 11,0+4;"AL GIOCATORE "; 
È 

IF a=8 THEN GO TO 3250 

LET b=a(p,2): LET c=b(b,a) 


IF s=1] AND a=2 THEN LET c=c*2 
PRINT AT 12,0+4;" ESE 

LET m=-c: LET x(8)=c: LET x(9)=f 
: GO SUB 810: LET m(x(9))=m(x(9) 
)+x(8): GO TO 2100 

LET b=4: IF s=1 THEN LET b=10 
PRINDOAT 2,043," £";b*n 

RED x((8)=b*n LET EE 
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3260 


3500 
350 


3520 
3530 
3540 
3550 
3560 
3570 
3580 


3581 


3582 
3583 


3584 
3585 


3588 
3590 


3600 


3601 
3602 
3605 
3606 
3610 
3612 


3615 


3616 
3620 
4000 
4010 


4020 
4021 
4022 
4023 
4024 
4025 


4026 
4030 
4040 
4050 
4060 
4070 
4073 
4075 


4080 


4085 


4090 


LET m=-b*n: GO SUB 810: LET m(x( 
9) )=m(x(9))+x(8): GO TO 2100 

GO SUB 900 

PRINT AT 8,0+4; "ASTA PUBBLICA 
";AT 9,0+4; "TERRENO" 

RESTORE 1900: LET a=0 

FOR i=l TO 28 

IF p=a THEN GO TO 3560 

READ b$,a,w,x 

NEXT i 

GO SUB 7800 

PRINT AT 10,0+3; "OFFERTA PLAYER 
n" 

GO SUB 5000: 
LET c=c-48 
IF c=0 THEN GO TO 2100 

IF c<1 OR c>z OR s(c)=9 THEN 
GORTOR3:581 

LET e=c 

PRINT AT 10,0+3; PAPER Cj 
"OFFERTA PLAYER ";c;" " 
PRINT AT 11,0+4; "AMMONTA £" 

GO SUB' 100: PRINT AT 12,0+4; "ACC 
ETTATO (Y/N) " 
GO SUB 5000: 
GO TO 3500 
EETeb=al(p72) BET b=b'((b71) 

TE: "x<b/2 THEN GO TO ‘3500 

LET b=m(e)-x 

IF b<0O THEN GO TO 3500 

LET a(a,l1)=2+e*100: LET m=-x 

IF a=13 OR a=29 THEN LET a(a,l) 
=8+e*100 

IF e=y THEN GO SUB 810: 

GO TSUB'I00: GOTTO 3620 

LET m(e)=m(e)-x 

GO! “SUB! 740/001: (GO TO. 2100 

BORE 18TONZO 
TE Fa, 1) 500 
(Al) = 5 00TGO. 
NEXT i 

FOR i=6 TO 36 STEP 10 

LET a=100*INT (a(i,1)/100) 
IF a=0 THEN GO TO 4030 

LET b=a(i,l)-a : 

IF b=1 THEN LET al(i,l)=a+l: 
GO TO 4030 

LET ‘al 1)=ax2 

NEXT i 

RESTORE 2500 

FOR i=1 TO 9 


LET c=CODE aî: 


INK 7; 


IF a$<>"Y" THEN 


THENSSLETTa Ce )=a 
TO 4010 


READ v,w,x 

EEA ZENTA (avi 17400) GET 
ENTRINCA(w,1)E/10/0)4 EER INT (a 
r1)/100) 

LET e=1+a*100 

IF a(v,1)=e OR a(w,l1)=e OR a(x,1 
)=e THEN GO TO 4090 

IF a=b AND b=c AND c<>0 THEN 
LET a(v,1)=a(v,1)+500: LET a(w, 
1)=a(w,1)+#500: LET a(x,1)=a(x,1) 

+500 

IF a(x,1)>1000 THEN LET alle = 

UO) 

NEXOG 
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4100 


4101 


4102 


4103 


4105 
4110 


4115 
4120 


4125 
4130 


4135 
4140 


4150 
4200 


4210 


4220 
4225 
4230 
4300 
4305 
4310 


4320 


4330 
4340 
4400 


4410 


4420 
5000 
5001 


5002 


5003 


5004 


5005 


5008 
5010 
5020 
5030 
5500 
5501 
5502 


LET a=100*INT 
LET u=a(6,1)-a: 
LET a=0 È 

LET b=100*INT (a(16,1)/100): 
LET v=a(16,1)-b: IF v=1 THEN 
LET b=0 

LET c=100*INT 
LET w=aX2/6,40=cì 
LET c=0 

LET d=t00*INT 
LERSx=a.((36,1)cd 
LET d=0 

IF a=0 THEN GO TO 4115 

LET a(6,1)=a(6,1)+(a=b)+(a=c)+(a 

=d) 

IF b=0 THEN GO TO 4125 

LET a(16,1)=a(16,1)+(b=a)+(b=c)+ 
(b=d) 
te e=0XTHENL GOLTOC4])35 

LET a(26,1)=a(26,1)+(c=a)+(c=b)+ 


(a(6,1)/100): 
IF u=l THEN 


(a(26,1)/100): 
IF w=1 THEN 


(213671971000): 
IF x=1l] THEN 


IF d=0 THEN GO TO 4150 
LET a(36,1)=a(36,1)+(Aa=b)+(A=c)+ 
(d=a) 
RETURN 
PRINT AT 11,0+4;"VAI IN PRIGIO 
NE": PAUSE 10: LET q=p: LET p= 
ni: 

IF q<1l THEN GO SUB 300: 

GO TO 4225 
GO SUB 200 
LET s(y)=3 
LET r=0: LET t=3: 
GO SUB 900 

IF s(y)=1 THEN GO TO 4400 
PRINT AT 9,0+3;"SEI IN PRIGION 
Bru AT Lr07o+3:PERTUSCIRESVUOI 
";AT 11,0+3;"PAGARE £50?(Y/N)" 


GO TO 2100 


GO SUB 5000: IF a$="Y". THEN 
GO TO 4400 

LET s(y)=s(y)-1l 

RETURN 


GO SUB 900: 
TASSA DI £50 
GARE bi 
LET m=-50: 


PRINT AT 10,0+4;" 
"AT 11,0+4;" DA PA 


LET f=0: GO SUB 810 


LET s(y)=0: RETURN 
BRE te=1RWMERTAR=1 
IF INKEY$<>"" THEN GO TO 5001 


LET a$=INKEYS: IF a$<>"" 
THEN GO TO 5010 


LET k=k+1: IF k<>10 THEN 
GO TO 5002 
LET k=1: LET c=c+l: IF c>z 


THEN LET c=l 
IF s(c)<>9 THEN LET q=p(c): 
INK c: GO SUB 460 
GOXSUEBN39 0005002 
BEEP 005,25 EET K=CODE vas 
IRBK> 9/6RERHFIN CARE Ik =k=832 
LET a$=CHR$ k: LET k=0: 
LET g=l: LET h=1] 
FOR i=l TO 16 
LET c(i)=i: LET d(i)=i 


RETURN 


5503 
5510 
5520 
5530 
5540 


95:50 


5560 
6000 


6020 
6030 


6034 
6035 


6040 
6065 


6070 
6080 
6105 


6110 
6120 


6130 
6200 
6500 


6510 
6514 
6515 


6565 
6566 
6567 
6568 


6569 
6570 
6580 
6585 
6590 
6592 
6594 
6595 
6596 


6600 
6605 
6610 
6620 
6625 
6630 


6640 


NEXT i 

FOR i=1 TO 16 

LET b=INT (16*RND)+1 

LET c=INT (16*RND)+1 

EETNa=e (di) BET. e (= (0) LE Re 
(b)=a 

LET a=d(i): LET d(i)=d(c): LET d 
(c)=a 

NEXT i: RETURN 


PRINT AT 8,0+3;"ACQUISTO TERRE 
NOUFATI9,0+3; LOUATE SN 


GO SUB 950: GO SUB 7800 
IF a=0 OR d=0 OR c=y THEN 
GO TO 6200 

GO SUB 2600: IF e=0 THEN 
GO TO 6040 

GO SUB 2700: IF e=l THEN 
GO TO 6200 

LET e=c 


PRINT AT 10,0+4;"DAL PLAYER ";c; 
AT 11,0+4; "OFFERTE £" 


GO SUB 100: PRINT AT 12,0+4; "ACC 
ETTATO (Y/N)" 

GO SUB 5000: IF a$<>"Y" THEN 

GO TO 6200 

IF a=6 OR a=16 OR a=26 OR a=36 
THEN GO TO 6120 

IF b>2 AND b<8 THEN GO TO 6200 


LET a(a,1)=b+ty*100: LET m=-x: 
GB E-esLERT =(3)=x MET) 
: GO SUB 810: LET m(x(4))=m(x(4) 
)+x(3) 

GO SUB 1700: 
RETURN 
PRINT AT 8,0+2; "ACQUISTO CASEH 

OTEL";AT 9,0+4;"PER ?" 

LET x(7)=0: GO SUB 950 

LET x(5)=0: GO SUB 7800 

IF a=0 OR d<500 OR c<>y OR b=7 
THEN GO TO 6700 

LET x(6)=w: LET e=b 

LET b=h(1)+h(2)+h(3)+h(4) 

LET v=g(1)+9(2)+9(3)+g(4) 

IF e=6 AND v=12 THEN GO TO 6750 


GO SUB 4000 


IF e=6 THEN GO TO 6580 

IF b=32 THEN GO TO 6750 

LET b=INT ((a-1)/10)+1 

IF x(7)>0O THEN GO TO 6620 

PRINT AT 10,0+3; "COSTO £" 

PRINT AT 10,0+13;b*50 

PRINT AT 11,0+4; "ACCETTI (Y/N)" 
PRINT AT 12,0+3;"S=INTERO SET 
PRENINAT èl30+3; LA=ACCETTO"s PIÙ 
uu 

GO SUB 5000: 
ERBE x(D)=1: 
IF a$="S" THEN GO TO 6710 

IF a$<>"Y" THEN GO TO 6700 

LET a(a,l)=a(a,1)+1 

LET e=e+1: GO SUB 6800: LET m=-b 
*50: LET £=0: LET x(4)=e: 

GO SUB 810 

IE x(4)=7 THEN LET g(y)=g(y)+l: 
LET h(y)=h(y)-4: GO TO 6650 

LET h(y)=h(y)+1 


IF a$="A" 
GO TO 6620 


THEN 


6650 
6660 
6700 
6710 
6715 
6720 
6725 


6730 
6734 


67/535 
6736 
6750 
6760 
6770 
6800 
6803 
6805 
6810 
6820 
6830 
6840 
6850 


6860 


6870 
6880 


6890 
6900 


6910 
6920 


6930 
6935 


6940 
6941 


6942 


6943 
6945 


IE x(5)=l THEN LET w=x(6): 
GO TO 6514 

MB oc (S7)>.0 THEN) “G0 TO: 6710 
RETURN 

IF x(7)=3 THEN GO TO 6700 


LET b$="SET" 

GO SUB 2600 

IF w=x AND x(7)=2 THEN GO TO 67 
00 

EB) (7) 


Telex) 15 THEN LET a=ve LET wex 
((6)):T GO TOS'65 4 

TE x(7)=2 THEN. LET a=w: LET w=x 
((6)/e rm GO*TOn 6514 

TERSS(V70)= 84 THEND (LETI a=xs LE TLw= 
((6)"=" “GO=TO* (65:14 

GO SUB 900: PRINT AT 1:07 0+35 N 
IENTE DA VENDERE" 

FOR W=1 TO 100: NEXT W 

GO TO 6700 

INK 4 

DESe=28THEN LET! d=32:. TETP. c=32 
Ubge=3WPHEN' ERTSA=153: LET c=32 
IF e=4 THEN LET d=154: LET c=32 
EERe=5S"EHEN. cEET d=153: ET c=15 
4 

TE e=6 THEN LET d=154: LET c=15 
4 

TPRe=7 THEN LET d=1l60:. LET c=l6 
Oc SENK 2 

TE a<ll' THEN PRINT AT 19; (ll=a) 
*2+0;CHR$ c;CHR$ d: GO TO 6890 
PR <218THEN PRINTRATI (22) £22 
2,0-2;CHR$ c;CHR$ d: GO TO 6890 
bra <3l CHEN PRINT ATLN2, (a 2201) 
2+0;CHR$ c;CHR$ d: GO TO 6890 
PRINT AT (a-31)*2,30;CHRS' d; 
CHR$ c 

INK 0: RETURN 


PRINT AT 8,0+3; "VENDITA TERREN 
Tr AT TORA: VOUALEROI 


GO SUB 950: GO SUB 7800 

IF a=0 OR c<>y THEN GO TO 699 
9 

GO SUB 2600: IF e<>1l THEN 

GO TO 6940 

GO SUB 2700: IF e=l THEN 

GONTO? 6999 


PRINT AT 10,0+4;"AL PLAYER " 

GO SUB 5000: LET c=CODE aî: 
LET c=c-48 

IF c<l OR c>z OR s(c)=9 THEN 
GO TO 6941 

IF c=y THEN GO TO 6999 

LET e=c 
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6949 
6950 
6960 


6965 
6966 
6980 


6990 
6999 
7000 


7010 
7020 
7030 


7075 
7080 
7090 
77110 
7118 
7120 
Mz 
725 


7130 


7355 
7140 
7160 
7770 


DAT5 


7180 
77190 


195 
7200 
7300 
TESRAO, 
7315 
7320 


7340 
7350 


7355 
7360 
7500 


TASIUIO, 
7550 


7560 
7570 
7580 
7610 
7620 


PRINT_AT 10.,0+14;c;AT 1.1,0+4; "OF 
FERTE £" 


GO SUB 100: PRINT AT 12,0+4; "ACC 
BETTIOZAN)IO 

GO SUB 5000: IF a$<>"Y" THEN 

GO TO 6999 

LET m=m(e)-x 

IF m<0 THEN GO TO 6999 

LET a(a,l1)=b+e*100: LET m=x: 


IGRRro(3)=x ET x (4) 

GO SUB 810: LET m(x(4))=m(x(4)) 
-X(3) 

GO SUB 1700: GO SUB 4000 

RETURN 


PRINT AT 8,0+2; "VENDITA CASE/H 
OTEL"; AT. 9,0+4; "QUALE: 2" 
LET x(7)=0: GO SUB 950 
LET x(5)=0: GO SUB 7800 
TERECS>y ORTbSB3tTTHENIC GOVTOI 720 
0 
LET x(6)=w: LET e=b 
LET b=INT ((a-1)/10)+1 
IF x(7)>0 THEN GO TO 7160 
PRINT AT 10,0+4; "PREZZO £" 
PRINT. AT 10, 0+13:b*25 
PRINT AT 11,0+4; "ACCETTI (Y/N)" 
PRINT AT 12,0+3;"S=VENDITA SET" 
PRINT AT 13,0+3;"A=ACCETTO & PIU 
GO SUB 5000: IF a$="A" 
LET x(5)=1: GO TO 7160 
IF a$="S" THEN GO TO 7300 
TRY THEN! 60 TO 7200 
LET a(a,l)=a(a,1)-1 
LET e=e-1: GO SUB 6800: LET m=+b 
*25: LET*x(/4)=e: E00SUB 810 
IF x(4)=6 THEN LET g(y)=g(y)-1: 
LET h(y)=h(y)+4: GO TO 7190 
LET h(y)=h(y)-1 
IF x(5)=1 THEN LET w=x(6): 
GO TO 7020 
TEUX:(V7)>0RTHEN GO %TO"7300 
RETURN 
IF x(7)=3 THEN 
LET bS="SET" 
GO SUB 2600 
IF w=x AND x(7)=2 THEN GO TO 72 
00 
LET x(7)=x(7)+1 


THEN 


GO TO 7200 


IF x(7)=1 THEN LET a=v: LET w=x 
(69) \GONTPON7.020 
IF x(7)=2 THEN LET a=w: LET w=x 
(EGO RRONZ70OZ0 
IF x(7)=3 THEN LET a=x: LET w=x 
(E NGONPOT7Z020 


PRINT AT 8,0+3;"IPOTECA TERRE 
NESFATI9,0+42 !OUVALE?0 

GO SUB 950: GO SUB 7800 

IF (b>2 AND b<8) OR c<>y 
FHENSAGOSTOK7:700 

IF b=1 AND e=1 THEN GO TO 7700 
IF b=1 THEN GO TO 7900 

LET b=a(a,2): LET e=b(b,1)/2 
PRINT AT 10,0+4;"SOMMANO £" 
PRINT AT 10,0+14;e;AT 12,0+4; "AC 

CETTI(MZZN)O 
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7630 


7650 
7660 
7670 
7700 
7800 
7805 
7810 
7820 
7830 


7840 
7850 
7860 
7900 


7930 
79365 
7940 
7950 


7960 


7964 
7965 


7970 
7980 
1999 
8000 
8005 


8010 


8020 
8040 
8100 
8105 


8110 


8120 
8140 
8200 
8210 
8220 
8230 
8240 


8250 
8260 


8270 
8280 
8290 


8300 
8310 


GO: SUB .5000!5 TE as<>"Y!" THEN 
GO TO 7700 

LET a(a,l1)=1+y*100 

LET m=e: GO SUB 810 

GO SUB 1700: GO SUB 4000 
RETURN 

LET d=a(a,l) 

LET b=d 


IF b>500 THEN LET b=b-500 
LET c=INT (b/100) 

IF b>100 THEN LET b=b-100: 
GO TO 7830 


INK 7: IF w>4 THEN INK 0 
PRINT AT 9,0+13; PAPER w;b$ 
INK 0: RETURN 


PRINT AT 8,0+3;"RISCATTO IPOTE 
CA";AT 9,0+4; "TERRENO" 

LET b=a(a,2): LET e=b(b,1)/2 

LET e=e+INT (e/10) 

PRINT AT 10,0+4;"SOMMANO £" 
PRINT AT 10,0+14;e;AT 12,0+4;"AC 
CETTI(YZN)!! 


GO SUB 5000: IF a$<>"Y" THEN 

GO TO 7999 

LET m=-e: LET f£=0: GO SUB 810 
IF a=13 OR a=29 THEN LET al(a,l) 
=8+y*100: GO TO 7980 


LET a(a,1)=2+y*100 
GO SUB 1700: GO SUB 4000 


RETURN 
LET a=c(g) 
PRINT FLASH 1; BRIGHT 1; 
PAPER 6;AT 15,0+10;" ", 


AT 16,0+10;" PROBAB ";AT 17,0+1 


PILL " 

' 

LET g=g+1: IF g=17 THEN 
GO SUB 5500 

RESTORE 8500 


GO TO 8200 

LET a=d(h) 

PRINT FLASH 1; BRIGHT 1; 
PAPER 2; INK 7;AT 4,0+4;" 


"?AT 5,0+4;" IMPREV ";AT 6,0+4 
PALLI " 
14 
LET h=h+1: IF h=17 THEN 
GO SUB 5500 
RESTORE 8600 
GO TO 8200 
FOR. i=l.TO a 
READ a$,b$,c$,b,c 
NEXIIONI 
GO SUB 900 
PRINT AT 9,0+4;a$;AT 10,0+4;b$; 
AT. 11,0+4;c$ 
IF b=1 THEN GO TO 8400 


TERD=2STHENC#LET m==c/ GOrLSUB' SÌ 
0: GO TO 2100 

IF b=3 THEN LET m=c: GO SUB 810 
si GOMITO 200 

IF B=4 THEN LET M=50: GO SUB 81 
0 GOTTO: 2100 

IF b=5 THEN GO TO 8700 

IF b=6 THEN GO TO 4200 

IF b=7 THEN LET qQ=p: LET p=p-3: 
GO SUB 200: GO TO 2030 


8320 
8350 
8360 
8370 
8380 
8400 
8402 
8420 
8450 
8455 
8460 
8470 
8475 


8480 
8500 


8510 


8520 


8530 


8540 


8550 


8560 


8600 


8610 


8620 


8630 


8640 


8660 
8670 


IF b=8 THEN GO TO 8450 
PRINT AT 12,0+4;"PAGHI? 
GO SUB 5000 
IF‘a$="Y" THEN LET m=-10: 

GO SUB 810: GO TO 2100 
GO TO 8000 
LET q=p: LET p=c 
IF c=2 THEN GO SUB 200: GO TO 2 
030 
GO TO 2025 
FOR k=1 TO z 
IF k=y OR s(k)=9 THEN GO TO 847 
0 
LET m=10: GO SUB 810: LET m(k)=m 
(kK)-10 
NEXT k 
FOR w=1 TO 100: NEXT w 
GO TO 2100 
DATANWAITVEINONA: VA", SE PASSI 
DAT GONWAGCREDITOTE200!, 1912 
VAT FINO A: SO","SE PASSI DA 
COLr'ACGREDIETOLE2Z00! lho 
DATA "VAI FINO A: LC","SE PASSI 
DA(GOSRUACCREDIETOsCE 20011025 

PAL VPPIUZANTI FINO A: PV! Ea 40/1 
"VAI FINO A Gounr SRI. 
DATA UNEUTROPPA VELOCITA" MULI 
A £I5" 2, 15,0 e UTASSA ISCOLASTIC 
AUDI TION 250 UBRIACHE 
ZZAS SIMULA RE202,20 
DATA "HAI VINTO ALLE", "PAROLE CR 
OCIATE", "GUADAGNI £100",3,100,"M 
UTUO EDILIZIO"," MATURATO", "RICE 
VIE ETS0OL737150 LA BANCA PAGASS* 
ITDIVIDENDI"," PERSE50 173750 
DATA "FONDO PRIGIONE", "RICEVI £5 
QUE DIA) 
DATA "ASFALTO STRADE","£40 PER C 
ASA",5£115 PER HOTEL",5,1l,"MANUT 
ENZIONI","£25 PER CASA","£100 PE 


(Y/N)" 


DATA " LUPO VP, ",6,0,"INDIETRO", 
UDTSTRENSPAZIO Neeziz0 
DATA " URUTORNA A Vel LIAN, zii 


“.,"AVANZA FINO A G0"," ",1,1 


DATA "VISITA MEDICA"," PAGA £50 
w," ",2,50,"PAGA OSPEDALE"," 
£100"," ",2,100, "ASSICURAZIONE! " 
FE PAGA LES 27,50 
DATA "ERRORE DI BANCA", "GRATIFIC 
ATEZ00Nt 737200, VINTERESSAIMDAL 
AVERE 25,4 "73,25 RIMBORSO 
TASSA", "SUL REDDITO", "INCASSA £ 
20",3,20, "VENDITA IN BLOCCO", "IN 
CASSATSDOI sr 50 
DATA "RENDITA ANNUALE","INCASSA 
EMO 03 00 TUREREDIR OE 
£100"," ",3,100,"HAI VINTO ALLA 
","GARA DI BELLEZZA", "INCASSI £1 


NO; 

DATA "FONDO PRIGIONI", "RICEVI £5 
0"," ",4,0 

DATA " "," "," ",6,0 


DATA "TUO COMPLEANNO", "INCASSI £ 
10","DA OGNI PLAYER",8,0, "PAGA £ 


8700 


8710 
8720 
8725 
8730 
8750 
8800 
8805 


8807 
8808 


8810 


8820 
8830 


8840 


8850 


8855 
8858 
8860 


8900 
8910 
8920 
8925 
8930 
8932 
8934 
8935 


8936 
3937 
8938 
8939 
8940 
8945 
8950 
8955 
8960 


8970 


10 ","OPPURE PRENDI","UNA PROBAB 
90 

IF c=2 THEN LET m=(h(y)*25)+(g( 
VO)AL0.0)i EGO TOR8720 

LET m=(h(y)*40)+(g(y)*115) 

PRINT AT 12,0+4;"TOTALE= £";m 
FOR w=1 TO 50: NEXT w 

LET m=-m: GO SUB 810 

GO TO 2100 

LET xi(1)=m:- LET-x(2)=a 

INK y: PRINT AT 8,0+2;"INSUFFI 
CIENTI £££ " 

FOR w=1 TO 100: NEXT w 

GO SUB 900: PRINT AT 8,0+2; "IN 
SUERIGIENTI ESS USATI Ilo0+25 
8=VENDITA CASE ":AT 12,0+2 
:"9=VENDITA TERRENI ";AT 13, 
0+2;"0=IPOTECHE v 

INK 0: PRINT AT 10,0+2;"Q=QUIT 
GAME lie GO. SUB® 5000 
GO SUB 900 

IF a$="8" THEN GO SUB 7000: 

GO TO 8860 

IF a$="9" THEN GO SUB 6900: 

GO TO 8860 

IF a$="0" THEN LET e=l: 

GO SUB 7500: LET e=0: GO TO 886 
0 

IF a$="Q" THEN GO TO 8900 
GO TO 8808 

BErRim= = (1) CET a=X()EGONTO NI 
0 

IF £=0 THEN GO TO 8920 

LET m(£f)=m(£)+m(y) 

RESTORE 1900 

FOR i=l TO 28 

READ a$,a,w,X: LET b=al(a,l) 

IF b>500 THEN LET b=b-500 

LET k=INT (b/100) 

IF b>100 THEN LET b=b-100: 

GO TO 8935 

IF i<23 AND k=y THEN 
GO SUB 6800 

IF f=0 AND b=8 AND k=y THEN 

LET a(a,l1)=8: GO TO 8945 

IF £f=0 AND k=y THEN LET a(a,l)= 
0: GO TO 8945 

IF b=8 AND k=y THEN 
8+£*100: GO TO 8945 
IF k=y THEN LET a(a,l)=2+£f*100 
NEXT i 

LET s(y)=9 

GO SUB 8960: GO SUB 4000: 

GO TO 2210 

IF p<12 THEN . PRINT AT 21,(11-p) 
*#2+0; "TU": GO TO 8995 

IF p<22 THEN PRINT AT (22-p)*2- 
lio TU GONTON8995 


LET e=2: 


LET al(a,l)= 
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———_.rr—Ttar<emem= 


8980 


8990 
8995 
9000 
9005 
9010 
9015 
9020 
9021 
9022 


9023 
9024 


9025 
9026 


9027 
9028 


9029 
9030 


9031 

9032 
9033 
9034 
9035 
9036 


9037 


9038 
903!9 


9040 
9500 
9510 
9520 
9530 
9532 
9534 
9536 
9540 
9550 
9551 


9552 


9560 


9565 
9566 


IF p<32 THEN PRINT AT 0,(p-21)* 
2+0;; RSM: GOUTO: ‘8995 

PRINT AT (p-31)*2+1,28;"TU" 
RETURN Cf 

REM draw screen 

RESTORE 9020 

FOR i=0 TO 167: READ a 

POKE USR "a"+i,a: NEXT i 

DATARO 12453173127 277027550 
DATA0::0:8,252 72527252, 2547 108 
DATA 128,145,156,159,156,144,128 
255 

DATA 65,241,65,249,9,9,1,255 
DATA 25571287135, 159, 191, 3917191 
1160 

DATA 2557.1,22572497253,2587253,5 


DATA 255,128, 1407.581917 128,128 


DAPA#255: ll, 107253,12104901 
DATAT255 65 l'65 657656565 


DATA 16,48,112,240,240,240,240,2 


DATA GI, 5.7, 1007255725525 12.552 


DATA 0,0,0,1,2,31,127,24 

DATA 0,0,0,240,56,252,254,24 
DATA 0,0,0,0,0,0,0,0 

DATA 0,0,0,0,0,0,0,0 

DATA 0,0,60,60,60,60,0,0 

DATA 248,168,248,168,255,173,255 
255 


DATA 255,128,128,128,128,128,128 


DATA 255 Lyla 
DATA 128,128,128,128,128,128,128 


DATA I, el 1i7255 


BORDER 7: PAPER 7: INK 0: CLS 
FOR i=0 TO 10 

PRINT AT 0,i*2+0; "RS" 

PRINT AT i*2+1,0; "TU" 

PRINT AT i*2+1,0+20; "TU" 

PRINT AT 21,i*2+o; "TU" 

NEXT i Dr: 

PRINT AT 1,0+16;"CD" 

PRINT AT 20,0;"RI";AT 20,0+16;"E 
E" 

PRINT AT 6,0; "EE";AT 6,0+20; "EF" 
3AT 16,0;"GH" IH: 
PRINT AT 1,0+10;"AB";AT 20,0+10; 
"AB";AT 10,0;"AB";AT 10,0+20;"AB 
" 4, 


PAPER 7: INK 0 
PRINTIVATIZ:/ + LOGIN TI 204165 
AP " 
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9567 


9568 
9570 


95.5 
9580 


9655 
9660 


9665 
9670 


9755 
9760 


9765 
9770 


918,55 
9860 


9865 
9885 


9900 
9902 


9904 
9908 


9910 
9912 
9914 


9916 
9918 


9920 
9930 


9934 
9935 
9936 
9940 
9941 
9944 
9945 
9946 


9999 


PRIENIENATREA0 0 SOUEAT 10,22+0;"S 
E";AT Une En 

PRINT AT 19,0+10;"SSs" 

PRINT AT 1,0+4;"??":AT 20,0+6;"? 
RS ATRARI 2420 

PAPER 0: INK 7 

PRINT AT 1,0+20;"PR";AT 20,0+20; 
"GO" ;AT. 1160420; "TX";AT 20/0+12; 
Wpx” 


PAPER 2: INK 7 

PRINT AT 1,0+2;"MP";AT 1,0+6; "CM 
"AT 1,0+8; "LC" 

PAPER 6: INK 0 

PRINCE TARA O127 VAT o 
COMMA Deal ot" 

PAPER 5: INK 0 

PRINT AT 20,0+2;"VV";AT 20,0+4;" 
GS";AT 20,0+8; "MR" 

PAPER 4: BRIGHT 1: INK 7 

PRINT AT 20,0+14;"VS";AT 20,0+18 
soUVen 


PAPER 0: BRIGHT 0: INK 7 

ERENIENA TZ UPDIS- ATA VII» 
AIB; GR 

PAPER ScS8INK 47 
EPRENECATAR,O tI PUb- AT elio pl CAU:» 
AT Igo tiva! 

PAPER 4: INK 7 
PRINTIVATIRZIOA20F!CTURAT 4704201 
VR: ATH 020: 1A 


PAPER 1: INK 7 
PRINT AT 14,0+20;"VG";AT 18,0+20 
È " PV 


BORDER 7: PAPER 7: INK 0 

PLOT o*8+31,144 

DRAW 65,0: DRAW 0,-25: DRAW -65, 

0: DRAW 0,25 

PLOT 0*8+119,144 

DRAW 25,0: DRAW 0,-25: DRAW -25, 

0: DRAW 0,25 

PLOT 0*8+144,31 

DRAW -65,0: DRAW 0,25: DRAW 65,0 

: DRAW 0,-25 

PLOT 0*8+56,31 

DRAW -25,0: DRAW 0,25: DRAW 25,0 
DRAW 0,-25 


PRINT BRIGHT 1; PAPER 2;AT 4,0+ 
PSI] " 


ld 
PRINT BRIGHT 1; PAPER 2; INK 7; 
AT 5,0+4;" IMPREV " 
PRINT BRIGHT l; PAPER 2;AT 6,0+ 
4." " 
PRINT BRIGHT 1; PAPER 6;AT 15,0 
+10;" " 
PRINT BRIGHT 1]; PAPER 6;AT 16,0 
+10;" PROBAB " 
PRINT BRIGHT 1]; PAPER 6;AT 17,0 
+10;" " 
RETURN 


e “rupi 


000000000000000000000000000000000060 
“Vorrei contribuire anch'io”. 
Per sostenere il C.A.F. vi invio 


° ° 
° ° 
Dietro un bambino ® e Segnaliamo 
maltrattato o L. 10.000 Hb 29.000 L. 50.000 è ai Servizi Sociali 
sì L. 100.000 O L. 500.000 DL. ii 
c’è sempre i . 6 “n e delTerritorioicasi 
iolia i "ei ramite assegno ancario intestato x e 
i famiglia RC, È Via V. E. Orlando 15, 20142 Milano, che vi invio, < da di maltrattamento. 
È impossibile ° unito a questo tagliando. e Laprimacosada 
stabilire con ° Tramite versamento sul C.C.P. n° 22349203 intestato C.A.F. e  fare:segnalare ogni 
esattezza quanti 4 Via V. E. Orlando 15, 20142 Milano. ® casodimaltratta- 
ini i i e Name CORnom@;... «iii iii i cui si 
bambini in Italia N Cog e mentodicuisiamo a 
subiscono violenze. 0 INGITZO. iii $ conoscenzaodicui 
Tanti, purtroppo. —® CAP... IR) e abbiamoilfondato 
enne as AI TT ° i da 
® ; TORRI Io, a ® 
un bambino subisce ° Attendo: ricevuta e tesserino di ‘Sostenitore del C.A.F. e  Socialidel Territorio 


e impara, da grande dal lunedi al venerdi, 


la ritorcerà contro la società. dalle ore 9 alle ore 12 (troverete i numeri di 
Bisogna intervenire, e subito: agendo sulle cause. telefono su Tuttocittà), oppure al Tribunale per i 
Intervenendo sulla crisi familiare che è Minorenni (chiedendo del giudice di turno) dal 
sempre alla base dei maltrattamenti lunedi al sabato dalle ore 9 alle ore 13, telefono 

a un bambino. 4988001/2/3: oppure al C.A.F., a questi numeri di 


telefono 02/8265051/2, che rispondono 24 ore 
su 24, 7 giorni su 7. 


Sosteniamo il C.A.F. 


Il C.A.F. è il primo Centro di Aiuto al Bambino 
Maltrattato e alla Famiglia in Crisi, sorto in 
Italia con lo scopo di intervenire nei casi di 

maltrattamento. 
Oggi, nella sua nuova sede più grande e attrez- 
zata, accoglieprovvisoriamente i bambini mal- 
trattati, contemporaneamente svolge un’azione 
terapeutica sulla famiglia per ripristinare l’equili- 
brio e reintegrare il bambino nel suo ambiente. 


Il C.A.F. è un’istituzione privata che opera in 

collaborazione con i Servizi Sociali, con i 

supporti messi gratuitamente a disposizione 
dal Comune di Milano, e con i contributi 

finanziari volontari dei cittadini. 
Contribuisci anche tu, utilizzando il 

tagliando. È un gesto necessario, per 

i bambini maltrattati, per te che 
vuoi fare qualcosa di concreto 

contro la violenza. 


UN BAMBINO 
MALTRATTATO OGGI\ i 
SARÀ UN U MO I Spazio gratuito 


offerto da J.soft 


VIOLENTO DI (OMANI. 


v CENTRO DI AIUTO . 
3 AL BAMBINO MALTRATTATO 
8 E ALLA FAMIGLIA IN CRISI 


Dalla grande 
edicolà 


Jackson 
Tutto sull'hobby 
e home computerl 


COMPUTER 
In questo numero: 

Due wp a confronto 
per CBM 

Philips VG 8020: 

PMSX a 80 Kb 

Data base per CBM 64 
Sorcery per MSX 
Stampare 

con lo Spectrum 


STRUMENTI MUSICALI 6 

In questo numero: VIDEOGIOCHI |, questo numero: 
Namm show ’85 Match Day: grande calcio 
Interviste: The U2-Brian May Tutte le novità di Londra 

Vizi & virtù di un synth Tutti promossi con Skooldaze 
Partecipa al Superconcorso Meinl Lo Jedi ritorna (al bar) 


Strumenti Musicali/Video Giochi/Home Computer 
sono pubblicazioni firmate: 


GRUPPO EDITORIALE JACKSON 


via Rosellini,12-20124 Milano 


eee CC € eEe-o-V 


di Alessandro Di Cresce 


Un programma interamente in 
linguaggio macchina per chi non 
si accontenta di 32 caratteri per 
linea. 


pesso, dovendo scrivere qualcosa 

sul video, si è limitati dalla disponibi- 
lità di uno schermo di 32 x 22 caratteri. 
Questo programma permette di scrive- 
re su 42 colonne, eliminando così una 
delle limitazioni dello Spectrum e confe- 
rendo a questo micro una veste un po’ 
più professionale. 
Il listato 1 è la versione 16K del pro- 
gramma, mentre il listato 2 è la versione 
48K. Battete sulla tastiera (o caricate 
dalla cassetta) il programma adatto allo 
Spectrum che possedete e salvatelo su 
cassetta con un SAVE “42 COLONNE” 
LINE 9000, per non rischiare di perde- 
re il frutto del lungo lavoro di battitura 
verificate che la registrazione sia avve- 
nuta in modo corretto. Una volta dato 
il RUN i più di 500 byte di codice mac- 
china contenuti nelle linee DATA ver- 
ranno caricati in memoria. A questo 
punto potete dare tranquillamente un 
NEW: la routine in linguaggio macchina 
non verrà cancellata dalla memoria, 
poiché è posta al di sopra della RAM- 
TOP); invece sarà cancellato il program- 
ma caricatore, che ormai ha svolto la 
sua funzione. La routine non è ancora 
pronta per operare e per renderla fun- 
zionante è necessario dare un RANDO- 
MIZE USR 32725 (se avete caricato la 
versione 16K) oppure RANDOMIZE 
USR 65493 (per il 48K). Ogni volta che 
farete un NEW della memoria bisogne- 
rà rendere ancora operativa la routine 
con uno dei due RANDOMIZE USR 
specificati sopra. 


Come utilizzare il program- 
ma 


Per scrivere su 42 colonne si opera co- 
me si farebbe normalmente per scrivere 
su 32 colonne, con la sola differenza 
che il comando PRINT si trasforma in 
PRINT #5. Vediamo per esempio co- 
me si fa a stampare sullo schermo la 
parola “Spectrum”: è molto semplice, 
basta dare PRINT #5; “Spectrum”. 


Commento al listato assembler 


Il listato 3 è l’assembler del programma. Per capirne il funzionamento guarda- 
te attentamente tra le lettere delle parole che appaiono sullo schermo dello 
Spectrum: tra ogni carattere vi è un piccolo spazio. Questo programma 
“compatta” le lettere, eliminando proprio questi spazi intermedi; in questo 
modo è possibile scrivere 10 caratteri in più su ogni riga. 

Quando il sistema incontra un PRINT #5 viene eseguito un salto a questa 
routine e il codice del carattere che deve essere stampato è posto nel registro 
A del microprocessore. Se per esempio diamo PRINT #5; “ciao”; questa 
routine verrà chiamata quattro volte. La prima volta il registro A conterrà 
99 (il codice di “c”), la seconda volta conterrà 105 (il codice di “i”) e così di 
seguito finché tutta la stringa sarà stampata. 

La routine comincia alla riga 80. Ecco qui di seguito un brevissimo commento: 
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La virgola, il punto e virgola e l’apostro- 
fo funzionano esattamente come al soli- 
to. Provate PRINT #5; “ZX”, “Spec- 
trum”’ ’“ciao”. Anche il PRINT AT li- 
nea, colonna funziona come al solito, 
tranne che, essendo possibile scrivere 
su 42 colonne, il secondo argomento di 
AT può variare tra 0 e 41. Se si vuole 
per esempio scrivere il numero 1968 
sulla quinta riga a partire dalla quarta 
colonna, date dunque PRINT #5; AT 
5, 4; 1968. Il PRINT TAB colonna, in- 
vece, si discosta un po’ da quanto è 
indicato sul manuale. Innanzitutto il nu- 
mero di colonna può variare tra 0 e 41; 
inoltre, la posizione di stampa rimane 
sempre sulla stessa riga dove si trova il 
cursore e non viene stampato nessuno 
spazio per raggiungere la posizione spe- 
cificata (per maggiori informazioni su 
TAB vedere il capitolo 24 del manua- 
le). 

Per esempio, PRINT #5; TAB 35; 
“DIC” scrive a partire dalla trentacin- 
quesima colonna la parola “DIC”. 

I comandi relativi al colore assumono 
tutto un altro significato rispetto al soli- 
to. Provate PRINT # 5; INK (o PAPER, 
FLASH, OVER, ecc.) 1; “ciao” e vedre- 
te apparire la parola “ciao” sottolinea- 
ta. Per disabilitare questa funzione usa- 
te PRINT #5; INK (o PAPER, ecc.) 0. 
Quando lo schermo è pieno, invece del- 
la solita domanda “Scroll?” apparirà un 
cursore lampeggiante. Premete un ta- 
sto: lo schermo verrà cancellato per 
permettere la stampa di altri caratteri. 
Se non volete che lo schermo venga 
pulito, premete contemporaneamente 


CAPS SHIFT e SPACE. | 
Provate questo programmino, che mo- 
stra l’intero set di caratteri dello Spec- 
trum: 


10 FOR a= 32 TO 255 
20 LET a$= CHR$ a : PRINT #5; a$; 
30 NEXT a 


Dopo averlo provato date un LIST #5 
e vedrete apparire il listato scritto, na- 
turalmente, su 42 colonne. Se volete un 


listato a partire da un determinato nu- 
mero di linea, date LIST #5; linea. AT- 
TENZIONE: il comando PRINT # 5; se- 
guito da INKEY$, SCREEN$, VAL$, 
STR$ e CHR$ provoca la perdita del 
controllo dello Spectrum. Dunque, se 
per esempio si vuole scrivere il caratte- 
re 33, non bisogna dare PRINT #5; 
CHR$ 33, ma è necessario aggirare 
l'ostacolo in questo modo: LET a$ = 
CHR$ 33 : PRINT #5; a$. Questo vale 
anche per le altre quattro istruzioni so- 
pra elencate. 


42 colonne OIIS" DATA "320,0 ER Ea RED 
versione per ZX Spectrum 16K/ 48K "7F","32","FB","7F","2]1", "88", 
UE!) "208, CI "CB" 
9000 REM *****X*X*XKXXKXKKXXXKKXXXXXX 9720 DATA "66","28","0D","CB", TANI 
9005 REM 42 COLONNE MEBUELEELA REID AE DZ VEC, 
9010 REM versione 16K TOLLE BE 7 CU 
9015 REM ALESSANDRO DI CRESCE SSR RPAONCE", "eb", =2gV jb, “"og®, 
9020 REM ****X*XXXKKKXKXKXXKXKXXXXXX%* CARIATI CINICI EAU NED, 
9025 CLEAR 32000: LET a=32256 "96",47F","3A","FD","7F" 
9030 PRINT "ATTENDERE" 9730 DATA TE TIUROR 9 NUIT UR KU "gg", 
9035 READ as “5c","36","20","C9", "FE", "20%, 
9040 IF assai THEN GO TO 9100 "300," 1BU,"A7,!FESS "061 
9045 LET b=CODE a$(1)-48 STIYDATRIV200 "55, pp», mgpoy è agro 
9050 LET b=b-7*(as(1)>"@") UOERUSUEE!O gag) ANr Vr 
9055 LET c=CODE a$(2)-48 "16", "3g", "64", "2g", "65" 
9060 LET c=c-7*(a$(2)>"e@") 9740 DATE "en", "i/*. aprincdlo, CARS, 
9065 POKE a,l6*b+c: LET asa Li DALL [ELA Le Te ESE YU VIAN 
9070 GO’ TO 9035 UO, UZElC BEL: IL0) lenta 
9100 PRINT '"CARICAMENTO "; 9745. DATA "SA","D6","A5","38%,. SEN; 
9105 PRINT "ESEGUITO" SIN TAEN 38, de, n, 
9695 REM CODICE MACCHINA UZ0n TED LECITE 790 
9700 DATA ALEC A AL IE) elia Ippo 9750 DATA Luo ie Me ly 7A "28", 
ep Mag' va, "0B","cB", TY", ODIA TIA ARIA ORI Tui 
AL AULE AOP UPS VAL UIF," E 8gnA 
9705 DATA EB UE VARIO GIU "CB", 9755 DATA VEBIEIIE RAMO OR Oi Tennis 
WARNER TO CBUI BEN "CB", “FC","7E","]13","18","F5", UeB", 
LE AD LIFALUE LUPA LI e PALETTA, UBRIVECNIA EC, EN 
9710 DATA NOCE teo 7 UE QUE “eBue 9760 DATA LL NI DINT LUPA ny ALIAS tI "20", 
"56","28","17","CB","96", Ure", "]8,"350,"21","FA","7FP", “75% 
ATRIA Ups I CROE I Ato EO7I 
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9765 


ETA, 


9775 


9780 


9785 


9790 


97:95 


9800 


9805 


9810 


9815 


9820 


9825 


9830 


9835 


9840 


9845 


9850 


9855 


DATA "3E" 
"Fa" ; "7F" 
" 3E" ; li | 6" 
DATA "96" 
"cp" à "CE" 
Ly io] n) UGpe 
DATA "92" 
“4B" È "7p" 


VAN] 4" CRTTITICI 
RUS 7 Uppa PISO ; 
TBE" TLC To0gi 

È "7E" Ò Ue! , LC ; 
? "c9I" PREBI Bot n 
PALE St TORI PRIZAI, " 

TR LSCUTUA] Bu Bro 
DCO FMC A, G" ? 


LOCRI COMU epr nio 
DATA ZE EDI CU cone 
VNABUEIBORI URI 26 
Li MILL AL) 
DATA UA DL SU KI WRAMS 
" 7E" n UE ? "FE" - MIDA "20" 5 
MO SE VADISTA WAI p EA LAI 
DATA UGD" : "96" 3 “7F" "3A" È 
VETTORE ERE 20) VOdNO 
ALLA ET rip “4B" 
DATA VEAULIITRUENIZON UBI, 


"81 EE | " 


pUAE 7a Lo TALI 


DATA 
"pg","7F","22" 


TRL È gol 6a) ale UAA" 
Up7® 
FOSTE SIIUONI "ES" 
DATA MIS Lee I 


Lie | " 5 "FC" 7 " TES 


uan 
"apro 
"20" È "06" CTEB® 
DATA "02% RISSA 6" 


"7E" 
"EFP" 


MEZZEO 5 
Ipo r 


Li 7FE" 


Ups" z 
"01 n" ; 


togli 


"Tu È 


POR! 7 "Ba" 


, 
LA 
LA 
, 
LA 
LA 
LA 
LA 
LA 
"87" PRE Reg AL TORRI TAL i nggn 
, 
LA 
Li 
LA 
LA 
(4 
P 
LA 
’ 
LA 


È "Cp" LEALI "CB" 7 


“CI ARNO RO Noi "01" "Fe" 
DATA "093" CAT " 28" " OC" È, 
" 3A" 5 "cgB" “"]p" LL AL 5 UE È 
EB "ID! UR ON AN 
DATA "2A" 

RI At nu25" AOL 
V7CIRRTOLD at "79" LAGUNA 
DATA ALe RL “0D" IZ 


"cg" zi " 
#20" LIES LL 
DATA "28" 
"FE" , " 1 6" 
“EB5" f ho | " 
DATA "B8" 
"AE" si "01 " 
hi 1 p» n tep 
DATA "7B" 
"E] n" È nu22" 
ULI 5GU , "36" 
DATA "00" 
VED" P, " 4B" 
" 7E" 7 "AF" 
DATA "22" 
" 7D" 5 "22" 
"00" PL 1 " 
DATA "08" 
"00" PALIO 0 )LL 
"00" 5 "00" 


42 colonne 
versione per ZX Spectrum 48K 


9000 
9005 
9010 
9015 
9020 


REM 
REM 
REM 
REM 
REM 


"gg" " 5G" " 7E" 7 


' 

' 
"ge" CEE 
" Zen " 3A" n “pp" È 
"2A" pil n" È 
"” 5A" 73 “36” 
"3p" ni " 508 5 
"00" È CaDI A 
Uli Tai 
Up. 7 Cani 7 "6eB" 5 


lA 
LA 
' 
, 
LA 
' 
' 
(di 
LA 
PR LIL saio (CAR LE 
LA 
r 
LA 
LA 
LA 
LA 
LA 
LA 
LA 
, 


"Dg" 
“"E0" 
I | " 
"00" 
usa” 


LA 
, 
LA 
LA 
' 
LA 
LA 
LA 
' 
r LA 
LA , 
,"p70/n7pu puEZAN 5 
' LA 
LA , 
LA 
, 
Li 
LA 
LA 
LA 
'’ 
LA 
LA 


n20"2] " TEEN 
UA PEAS n u 7E" f 
“AFPU be! FASZII) UL È 
"ED" PR PAL AMI 
#20" TADEYCIL RZ " n 
"7p" psi pol Ur 
ng IDE ZA, " 
Apr 7 LEDUI n 'UBO È 
"00% TOO L00387 
"00" po 


KKAKKAKAKKAKAKKAKAKKAKKAKKKAKKAKKAKKKKAKKAKAKAAK 


42 COLONNE 
versione 48K 


ALESSANDRO DI CRESCE 
CLEFZZIEZZZZI AZZ ZZ LELE: 


STENO 
SRI I 


"eg n 
ne È 


"ED" È 
"] 8g" ; 


"ED" % 
"00" 7 


"7p" 5 
"04" 5 


" FA" ” 
" 30" ù 


Aa , 
na. 7 


Lie 9) Fà 
"OE" È 


ULI TRS 5 
"po" È 


OO 
Mele 


"CB" 3 
"]g" Ri 


F IDIZNI 


"up2" È 


BU, 
BIG 


" 7E" P 
" ben 7 


"CB" È 
UDO È 


MODI 
Bg 


UE, 
LUro(ojUPE 


IBN, 
TASÙ - 


tegiu E 
tERpa È 


9025 
9030 
9035 
9040 
9045 
9050 
9055 
9060 
9065 
9070 
9100 
9105 
9695 


9700 


917055 


970 


9715 


9720 


9725 


9730 


97735 


9740 


9745 


9750 


9755 


9760 


9765 


9770 


965 


9780 


CLEAR 64800: 
PRINT "ATTENDERE" 
READ as 


IF a$s="*#" 
LET b=CODE a$(1)-48 


LET a=65024 


THEN GO TO 9100 


LET b=b-7*(a$(1)>"@") 


LET c=CODE a$(2)-48 


LET c=c-7*(a$(2)>"@") 


POKE a,l16*b+c: LET a=a+l 

GOITO 90835 

PRINT '"CARICAMENTO "; 

PRINT "ESEGUITO" 

REM CODICE MACCHINA 

DATA ORGE REMO TURE UERISE 
UCI At Ign LOptrneRuo UBI 
CBR UTI AZ 22 

DATA VCBU, URI A PI QUE VEBlo 
RAPIZZI OEn A Nepur serre SCI 
IDONEI 26 

DATA IO CZ AN RE REG GR 
ID OL 2 AN MERITO nE RUBA 
ALII IC 043. 

DATA 320 IRA ppi RD, 
LAZ 9) UPS a UO E gig 
PCV et) DEU ee Ae) 

DATA LOL 2 MO telo MAGI 
VOTI ALI DIUO UPALLI p 7 "el 
LO AA li 

DATA LERUrUCEI 20 VEeBUo 
VATI WATT IERI LECuo, o 4ne VED 
MOR RE BAR) eppi 

DATA OZ UPAV REI MOT aste 
ROC 200 EU eREUE IZ 05 
IS OUTUIIBUI IAT PRU 968 

DATA ZU UERUESVODIO TI: 
VOOR Ot BUIO VEE 
IONI 642 AGI 

DATA " FE" "] iI. "28" "6a" ULI 3E" 
"3p",#]g#, 708 uppnragon, "Da", 
OA Apr coniugi 

DATA ROAD, VAI, 3:80 VI ESSE 
PZ ARI ore SSL 
06 AA AI 

DATA " e AO (OL AD 2817 
ROD Aigle teplio CIBI 
SAC ATL OIL I SENI 

DATA CRI ZE ZO MO EDILE 
RICA pi DADI RX VPALO SUS SUE VERI 
CBR UCI RC piangi 

DATA VEE, OA glo api ZIONI 
OO IS URAR pp VB 
o (Oa di DFS LS UE LOr 7A 

DATA CORRI NCgr MS 
CRA RES I8 6 peg AC LL 
REL BEE IRA LC 

DATA NOR epleucgl Ego 
CB CEN CIR Teglio 
Be AS Aa 

DATA n QC SURI SEDI 
e Ber BW MSC one TWBIE7 
SOC pe icparusto4t 

DATA MERSTEDII ETRE SEDI 
14 Bild CRI RUM TOOL 
Se UAC CDA CONA 
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Upp" 
" FE" 
" 2B" 
" 96" 


9785 DATA "F5" 
" TE 7 ULI Ste 
MIO 
DATA "CD" 
pipi 3 
uz 7 "Fa" 
DATA "FA" 
SI MST 
UTI, 


97190 


tep" 
Li ie 
I 
" Ci he 


9795 


ua go 


42 colonne 
listato assembler 


r , 
r Li 
ld LA 
' LA 
ULI FEES ù “Ep" n 
Lé ’ 
LA LA 
(4 LA 
’ LA 


010 ; DI 
Usd ; da? COLONNE 
GoGSo ; 

dI04d9 ; PER RIGA 
GIS : 

v06d URGE G7E060H 
8970 START DEFW START+2 
Vietata) LD HL.FLAG 
G096 BIT ®.(HL} 
viva JR Z.JUMPI 
110 RES W.(HL) 
viso SENMOZZIOL) 
9130 AND A 

0149 JR NZ. JUMPGE 
diSO RES 7. (HL) 
d169 JUMPS XOR A 

vie RET 

WIiSy JUMPi BIT 1.iHL) 
Gi9ù JR Z: JUMP 
v200 RES 1.(HL) 
v210 SET 2. (ML) 
d220 CP 6H 
vaso JP NC.0C86H 
0248 INC 

v259 LD (ML). A 
B266 RET 

32709 JUMP2 BIT 2. (HL) 
0250 JR Z: JUMP3 
v299 RES 2. (HL) 
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“FaA" 5 
EZ0ON , 
(Le TAL 
" 3A" 7 
"04" ; 
“ 4B" 
UBI." - 
"g7" pa 
"90 


Li 


PEPE" ; 
" 04" 7 


" FA" 7 
" cell 5 


"g7" 
"87" È 


lil 
3 JUMP3 


Vi] 
dd JUMP4 
(e) 


JUMPS 


9800 DATA VATI EU RAID DIE 
LI ni pie MZ AU Me me e i i 
MOST L CI TOA, ES WREN 

9805 DATA Eee IAU 
MO RE GU Ta pie RIE I pigrie 
VOTO UCI VE 

9810 DATA O ZI O NOS VERI pi 
UEBRIIIBAIE CRU eu pe 
STAVA DE) PALLI pi ah UPBXer \UPSL a bl 

9815 DATA OB LA AZIVE tg oo 
USAERCRI MB TAI3 7A CRUE 
SCRL Ol DUE Io need 

9820» DATA 2A ®Ep7, ppu, n24#, 
VIE Re PED ATO RAIN 
IV TRI? SEO MELA Gun panr 

9825 DATA VIII CSS puro ope 
MT I AU A 
ME AL 3 MIRATE Ro), 

9830 DATA 2 RITO GUIA Epi 
Loi PE LE E OLGA LE 
LES UR NILE A RIon 

9835 DATA BOVO ZI 3 RIO ni 
VARIO LOL UO ea 
INERTI GORE Vo AR to 

9840 DATA (BLAIR 6BI 
WE RI 2 ARRE CIAO ine 
MEC ot O PIERI 

9845 DATA VOI 22 LOUIE AIR i 
VEDI ABI NERI SOLO Pro 
VER PARARIOI EDI AMA dot 

9850. DATA ag; pgn nogusnpin, 
WED 22 BI te uno 
OO E A AE DIVO RI 

9855 DATA "08","3E","ED","B0", 
LOL AU COL LOLA IE 
OO OOO GAI 

2hH ei "i eroe 

Cs - [re] 

te Parga 9660 3R ZENTER 

(XI. A d670 È i 

ce tt Ai 

Yi 1) È 

Hi slsan B?00 JR G.COLOR 

(Hi). 20H u716 JR Z.AT 

U?24 CP 12h 

4. (HL) 4738 IR Z.TAB 

Z, JUMP4 er, INT d REGA 

4. (HL) C 

"tp 676o SALT CP__SUN 

No, d706 PSN! 

C. 94BCH I L 

Ne viti d799 JR_ C.GRAF 

dd 

(ML). AÀ 0; 

3; 

5, (HL) dla 

Z, JUMPE 3340 JR C.SALT 

5, (HL5 9850 LD A-26H 

zusn | BRR 

NZ. 046 fi»; 

CTRL —. SALT paci DE. 96H 

A. (MEM) È 

(XILzAÀ "Lera a lia 

HL.. 5C38H . 

CHL). 20H v928 LOOPI LD A. (DE) 

AM 

26H . 

NU. SALT2 cer het Z.LOUP1 

à Z LOOPI 

6 9970 SALTI Ni A, (DE) 


320 7 
Wo P, 


“FE" p 
“pgn îi 


"DIO 
IZZO, 


ep È 
#"] 8g" î 


MII 
BZ 


STE È 
"36" n 


" FE" fi 
" 5E ULI È 


WEB”o 
" 300 i 


“Op” È 
“887 


UWegu f 
"00" 6 


nu38g" si 
"ag" 7 


UEeg 5 
"FE" È 


SALTA 


COMMA 


ENTER 
JUMP 


SALT? 


SALTS 


SALTO 


HL. X 
(HL) . VFFH 
HL 


{HL) 
A. 16H 
(AL) 
Z 


CTRL 
0. (HL) 


1. (HL) 
4, (HL) 


cAODRI , HL 
A. (ML) 

À 

2AH 

NZ. SALTS 
HL 

(HL) 

HE 

À 

(HL).AÀ 
CTRL 

A: (X) 


@FFH 
cha 


DX). A 
BC. (x) 
fi. C 


DI 


sc 


DI 


* 


MNOGCFCOrcrerroco 


ni- 

TI Gr 
x 
n 
1 


AH 


5 LOOP? 


JUMP? 


LOUP8 


SALTO 


CTRL 


SALTI 


USR 


(BIT). A 
(BYTE). HL 
C.8 


BT 

HL.. (ADDR) 
D. (HLJ 

FL 
CADDR) , HL 
HL. FLAG 
A. 1 


Cc 
NZ. JMP? 
2, (ML) 


G.D 


- 
© 
qu 
mn 
"_ 
p: 


POO MONTUEO 


NZ. LOOPG 
HL. (BYTE) 
H 


(BYTE). HL 
H 


A-B 
CHL) 


D 
(HL). A 
HL 


A.C 
CHL) 


E 
(HL). A 
BC 


NZ. LUUP2 


HL. 5C3BH 
A. (ML) 
1 dial 


C 

HL. (SC51H) 
HL 

HL.. SAEGH 
(HL) . V88H 
Mi SC3BH 


(SCS1N).HL 
HL. SCSBH 
{HL) . 2GH 
HL. @FFN 
(XI, HL 


BC. (5C4FH) 
aa 


HL.. BC 


HL 
(5C26H) . HL 
HL.STSRT-200 
(5C76N).HL 
BC. BASH 
DE.START-200 
HL. SEG8H 


RET 
DEFHN 0660 
DEFW DUO 
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Il primo settimanale di software 
su carta per il tuo personal computer. 
Un appuntamento al quale non puoi 
mancare ogni venerdì in edicola. 
Nato in edizione unica, per i più 
diffusi home e personal 
computer, dal 1 Aprile, 

allo stesso prezzo, saranno 

in edicola le versioni dedicate 
ai prodotti Sinclair (ZX81, 

ZX Spectrum e QL) e ai 
prodotti Commodore (VIC20, 
C16 e C64). 

In più un’edizione esclusiva 
per gli utenti dei personal 
Apple, gli home computer 
Texas e i nuovissimi sistemi MSX. 
Una grossa novità: la possibilità 
di abbonarsi dal 1 Aprile 1985 
al 31 Dicembre 1985 per ricevere 

38 numeri del settimanale 

comodamente a casa con un i 

notevole risparmio. Chi si abbona o Soft 
riceverà ogni 15 giorni 2 numeri EDITRICE ° 


di PAPERSoft 


a 
x 


\ LU 


= anticipo rispetto | Tagliando abbonamento a PaperSoft da inviare in busta chiusa a: | 

all’uscita in edicola. g J.soft - V.le Restelli, 5 - 20124 MILANO / 

Non perdere quest 

ii q . ri | DO Abbonamento a 38 numeri di PaperSoft al prezzo speciale di L. 30.000 anziché L. 38.000 | 
| D edizione Sinclair (PS01) D edizione Commodore (PC01) D edizione Apple/TI99/MSX (PVO1) I 

° : O contanti allegati O assegno allegato n. 

SAPApO sro I DO h li | 19445204 i J MILAN i 

il coupon qui É o versato l'importo sul c.c.p. n. intestato a J.soft - ANO y 

riportato e spediscilo $ gogna Nome i 

a: Via Città 

J.soft | CAP: ose al 2 de-Prov. Data | 

V.le Restelli, 5 | Firma | 


di Lucio Bragagnolo 


Prmi passi con il tuo 
Spectrum i 


Carolyn Hughes 


PRIMI PASSI 
CON IL TUO 
SPECTRUM 


di Carolyn Hughes 
ed. Il Rostro 


uesto è sicuramente il libro più 

semplice e accessibile che ci sia mai 
capitato di recensire. Dedicato ai bam- 
bini o ai principianti, è stato studiato 
per condurre l’utilizzatore inesperto alla 
padronanza delle funzioni essenziali del 
BASIC Spectrum, attraverso un lin- 
guaggio estremamente familiare e ami- 
chevole e un uso estesissimo di figure 
e disegni. 
In Inghilterra il libro è stato originaria- 
mente pensato per i bambini (basta ve- 
dere la conclusione della prefazione di 
Tim Hartnell: “è ormai tempo di comin- 
ciare a scoprire come possa essere di- 
vertente far sì che un computer segua 
ogni tuo desiderio”), ma pensiamo che 
nella situazione italiana sia da consiglia- 
re anche a molti adulti, i quali finalmen- 
te potranno leggere e mettere in pratica 


i consigli di qualcosa che — sempre ci- 
tando la prefazione — metterà il lettore 
in grado di “non avere bisogno dell’aiu- 
to di nessuno per padroneggiare lo 
Spectrum”. 

Il libro è diviso in 28 piccolissimi capito- 
li, ognuno strettamente dedicato a un 
singolo argomento, che spaziano dal 
modo corretto di inserire il cavo TV del- 
lo Spectrum nel televisore a una raccol- 
ta di sei giochini — semplicissimi — listati 
nell’ultimo capitolo e registrati su una 
cassetta allegata alla confezione. 

Il linguaggio, come dicevamo più sopra, 
è semplicissimo e familiare, il più piano 
possibile (allo scopo di facilitare la com- 
prensione del testo), e ogni capitolo 
comprende una o più illustrazioni a fu- 
metti, queste ultime col compito di rias- 
sumere, chiarificare o presentare esem- 
pi attinenti a quanto detto nel testo. 
Dove appariva necessario, l’autrice ha 
anche rinunciato a qualunque tipo di 
rigore formale, così che ad esempio le 
variabili sono “scatoline”, mentre sulle 
estremità delle stringhe compaiono due 
nodi, per non far scivolare via le lettere 
della stringa che devono restare tutte 
unite. Al termine di ogni capitoletto vie- 
ne presentato un semplice esercizio di 
cui viene data una possibile soluzione 
alla fine del volume, raggiunta la quale 
chiunque sarà sicuramente in grado di 
compiere operazioni, quali scrivere un 
programma e correggerne le linee, co- 
noscendo in più i termini più importanti 
ed essenziali del BASIC Sinclair. In ef- 
fetti le istruzioni affrontate sono lo stret- 
to indispensabile — non più di una cin- 
quantina, segni di interpunzione inclusi 
—, e non vengono trattate istruzioni co- 
me — READ... DATA..RESTORE, 
OVER, INVERSE, POKE, RANDOMI- 
ZE, PLOT, DRAW e via dicendo. Non 
che questo sia un difetto: semplicemen- 
te, chi comincia a conoscere lo Spec- 
trum non ha bisogno, almeno inizial- 
mente, di conoscere interamente il BA- 
SIC, e le parole chiave comprese in que- 
sto libro sono più che sufficienti per con- 
sentire di familiarizzare con la tastiera 
e prendersi le primissime piccole soddi- 
sfazioni in campo programmatorio. 


I libri italiani vengono offerti 
con il 10% di sconto sul 
prezzo di copertina 


Quanto ai programmi inclusi nel libro, 
sono davvero piccola cosa: una slot ma- 
chine in grafica a bassa risoluzione, un 
programma che indovina un numero da 
voi pensato, uno “spara e fuggi”, due 
programmi sul genere de “l’impiccato” 
e “la talpa telegrafica”, l’unico che ri- 
chieda una certa intelligenza, in cui biso- 
gna rintracciare la posizione di una tal- 
pa basandosi sui segnali Morse da essa 
emessi in relazione alla posizione del 
giocatore. 

A proposito dei programmi, ci ha stupi- 
to moltissimo il fatto che gli stessi, pur 
essendo totalmente scritti in BASIC, di 
lunghezza infima e completamente lista- 
ti sul libro, siano stati protetti da una 
routine in linguaggio macchina incarica- 
ta di resettare il computer non appena 
viene tentato un BREAK. Questo è 
l’unico difetto del libro, che è diretto a 
principianti, messi però nell’impossibili- 
tà di pasticciare a loro piacimento senza 
bisogno di copiare i listati. A tutti consi- 
gliamo di interrompere il caricamento 
un attimo prima che il programma vada 
in autostart, eliminando le POKE pre- 
senti alla fine del listato, per poi regi- 
strare il programma “pulito”. Per la cro- 
naca (e soprattutto per chi sa usare un 
disassemblatore) la routine in 1/m viene 
caricata approssimativamente dalla lo- 
cazione 65200 in poi. 

Terminiamo raccomandando questo 
“Primi passi con il tuo Spectrum” a tutti 
i papà con bambini che frequentano la 
scuola elementare... e a tutti i bambini 
con un papà che proprio non riesce a 
far funzionare “quel maledetto aggeg- 


” 


gio”. 


QL SuperBASIC 
(il SuperBASIC del QL) 


di A. A. Berk 
ed. Granada Publishing 


TE breve SUPERSINC comincerà a 
occuparsi anche di QL; ci sembra 
giusto quindi proporre in questa punta- 
ta di PRINT anche qualcosa che si occu- 
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pi dell’ultimo nato di casa Sinclair (auto 
elettrica esclusa...). II QL sta comincian- 
do infatti a farsi spazio anche in Italia, 
ora che è terminata la sequela delle ver- 
sioni provvisorie o di fortuna, di ROM 
interna e programmi inclusi nella confe- 
zione, e gli acquirenti possono finalmen- 
te basarsi su dati di fatto anziché illazio- 
ni e voci di corridoio. 

Come da titolo, “QL SuperBASIC” con- 
centra l’attenzione soprattutto sul 
l'omonimo linguaggio implementato sul 
Quantum Leap che, sebbene conservi 
intatta tutta la sintassi del BASIC Spec- 
trum, con tanto di GO TO e GO SUB, 
è in grado di rinunciarvi a favore di 
istruzioni strutturate, estremamente si- 
mili a quelle del Pascal o del nuovo BA- 
SIC per Macintosh, dove i numeri di 
linea sono completamente assenti. 

Lo spirito del libro è quello di focalizza- 
re in particolar modo le differenze più 
macroscopiche tra quanto avveniva sul- 
lo Spectrum e ciò che può fare il QL; 
a questo scopo vengono passate in ras- 
segna le varie sezioni del linguaggio (in- 
put/output, cicli, gestione stringhe, fun- 
zioni matematiche, grafica, microdri- 
ve...), evidenziando di volta in volta 
quanto può costituire sorpresa per i 
programmatori abituati agli 8 bit o vie- 
ne trattato in maniera un po’ troppo 
sbrigativa dal manuale. 

Si parte così da una panoramica della 
tastiera, seguita da una “Introduction to 
programming” (il libro è in lingua origi- 
nale, anche se scritto con un linguaggio 
sufficientemente chiaro per essere capi- 
to anche dagli inesperti) incaricata di 
introdurre le prime novità, come identi- 
ficatori, variabili intere, variabili stringa 
con nomi più lunghi di un carattere, ec- 
cetera. 

Il capitolo successivo tratta degli stru- 
menti a disposizione per scrivere un 
programma (AUTO, RENUM, LIST, 
DLINE, EDIT...), non dimenticandosi di 
trattare l’EDIT multiplo, scritto come 
EDIT 1000,10. 

Si prosegue con una sezione dedicata 
alle operazioni di input/output (in cui, 
almeno per il. momento, non vengono 
introdotte finestre et similia, ma si resta 
su dimensioni più accessibili a chi sta 
cercando solo di documentarsi) e alle 
istruzioni di loop e decisione, da RE- 
Peat...END REPeat a IF...THEN...EL- 
SE a SELect ON...END SELect all’ON- 
...GOTO per anni invidiate ai commo- 
doriani. Il capitolo 6 comincia a intro- 
durre le prime forme di strutturazione 
dei programmi ed è dedicato a stringhe 
e array: le cose da notare sono la tratta- 
zione di INSTR, di== (esempio: 
1.2345678==1.2345679) e la presen- 
za di un semplice programmino di sort 
alfanumerico. 

Nel capitolo 7 arriva una pioggia di nuo- 
ve funzioni matematiche (DIV, MOD, 
DEG, RAD, LOG10, XOR...), mentre il 
successivo (“Graphics and sound”) ci in- 
troduce, tra l’altro, alle meraviglie della 
“turtle graphics” incorporata nel Super- 


BASIC, delle cinque modalità di CLS 
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dello schermo e, dulcis in fundo, agli 
otto paramentri di BEEP (piccolissimo 
indovinello: digitate BEEP 0,100 segui- 
to da ENTER e scoprite come si fa a 
interrompere l’esecuzione del comando 
senza dare un reset...). Concludono la 
rassegna le nuove istruzioni di “dialogo” 
con microdrive e dispositivi esterni, un 
capitolo dedicato alle procedure e l’in- 
dice alfabetico delle oltre centoventi 
istruzioni disponibili. 

In definitiva, “QL SuperBASIC” è un 
libro estremamente valido a scopo di 
documentazione, adatto ai freschi pos- 
sessori di un QL come a chi, tutto som- 
mato, è rimasto incuriosito dall’uscita 
del nuovo computer Sinclair e vorrebbe 
saperne di più. 


Spectrum graphics 
and sound (grafica 
e suono dello Spectrum) 


di Steve Money 
ed. Granada Publishing 


dispetto delle sue ben note limita- 

zioni di colore lo Spectrum possie- 
de ugualmente buone capacità grafiche: 
con più di 45000 pixel presenti sullo 
schermo, otto colori, caratteri grafici 
predefiniti e definibili dall’utente e istru- 
zioni BASIC di gestione della grafica la 
creatura di sir Clive non può dare certo 
le soddisfazioni di un Macintosh Apple, 
ma consente comunque di ottenere otti- 
mi risultati. Il problema, semmai, è quel- 
lo di imparare a sfruttare a fondo gli 
strumenti a disposizione: e qui bisogna 
dire che quasi mai libri, riviste o casset- 
te di ogni genere forniscono aiuti per 
andare oltre la definizione degli UDG o 
un uso poco più che amatoriale di 


PLOT e DRAW. 


SPECTRUM 
GRAPHICS 
AND SOUND 


tt 


STEVE MONEY 


“Spectrum graphics and sound” è un 
libro che, sia pure senza regalare “Mel- 
bourne Draw” o offrire una versione 
avanzata del “VU 3D” Psion, è in grado 
di colmare efficacemente questa lacu- 
na, esaminando le tecniche tradizionali 
(a partire dalla grafica in bassa risoluzio- 
ne) come quelle meno utilizzate, quali 
la rappresentazione e la rotazione di fi- 
gure tridimensionali o il disegno pro- 
spettico. 

Il metodo adottato dall’autore è quello 
della massima gradualità: l'argomento 
è sviluppato partendo da zero, dopo di 
che vengono compiuti costantemente 
piccoli passi in avanti, fino ad arrivare 
al risultato voluto. In questa maniera 
diventa estremamente facile per l’uten- 
te capire cosa stia facendo e, soprattut- 
to, perché; inoltre una metodologia di 
questo tipo offre un controllo costante 
dei propri progressi, dando la sicurezza 
di avere perfettamente assimilato un ar- 
gomento prima di passare al successi- 
vo. L’esempio più evidente di quanto 
sopra affermato appare nel capitolo 9, 
dove la realizzazione di un grafico a isto- 
grammi tridimensionale viene suddivisa 
in 5 fasi successive (partendo dalla vi- 
sualizzazione di un semplice piano a due 
dimensioni), ciascuna completa di lista- 
to, riproduzione del video e spiegazioni 
in abbondanza. 

Ma esaminiamo più da vicino i singoli 
capitoli del libro: sono 10, preceduti 
dalla consueta introduzione e seguiti dal 
solito indice. Il primo di essi (intitolato 
“Introducing graphics”: il libro è in lin- 
gua originale) comincia addirittura dalla 
grafica di testo — asterischi, chioccioli- 
ne, segni di addizione e così via — per 
passare comunque subito alla trattazio- 
ne della grafica predefinita (“Low reso- 
lution graphics”, capitolo 2), ottenibile 
sullo Spectrum col cursore in modo 
“G”. La grafica in alta risoluzione fa la 
sua gradita comparsa nel capitolo 3, 


Pa 


a TE TTT 


che si occupa inizialmente della realiz- 
zazione di pattern, poligoni e composi- 
zioni particolari: segnaliamo il program- 
mino “Kaleidoscope”, molto semplice e 
simpatico. 

Il capitolo 5, intitolato “Drawing techni- 
ques”, scende maggiormente nella teo- 
ria, elargendo al lettore una piccola do- 
se di trigonometria, con lo scopo di far 
comprendere come si realizzano cerchi 
o ellissi senza accontentarsi del coman- 
do CIRCLE. Questo è importante: l’au- 
tore mira a fornire strumenti di cui sia 
assolutamente chiaro il funzionamento, 
così che questi possano essere usati 
dal lettore in completa autonomia, evi- 
tando di perdere ore in tentativi inutili. 
Il discorso prosegue affrontando il capi- 
tolo UDG, per mostrare successivamen- 
te le tecniche di realizzazione di set al- 
ternativi di caratteri e di ingrandimento 
sullo schermo degli stessi. 

“More about color” è il titolo del capito- 
lo 6, in cui vengono prese in esame le 
istruzioni del BASIC Sinclair, come 
OVER, INVERSE, BRIGHT, FLASH e 
appaiono due programmi interessanti: 
una piccola routine di riempimento di 


.figure e il classico “sketchpad” per dise-' 


gnare sul video. Ci si occupa successiva- 
mente (capitolo 7) di tutti i tipi di grafico 
possibili e immaginabili, nonché del pro- 
blema della rappresentazione di funzio- 
ni matematiche (mostrate convenzional- 
mente o con linee continue, argomento 
praticamente assente in qualsiasi altro 
libro). Il capitolo 8 parla di animazioni 
realizzate in BASIC 1/m o facendo uso 
di UDG creati ad hoc, mentre nel 9 si 
introduce il discorso “3D”, ottimamente 
realizzato, con dovizia di spegazioni, 
programmi e videate riportati su una 
stampante professionale di tipo Epson 
FX-80. L’ultima sezione del libro è dedi- 
cata, infine, a tutto quello che bisogna 
sapere sulle capacità sonore dello Spec- 
trum. Per quanto piccola, questa sezio- 
ne è molto chiara, come d’altronde il 
resto del libro, e consente di ricavare il 
massimo dal piccolo BEEP del compu- 
ter. 

“Spectrum graphics and sound” è per 
la Granada Publishing un altro colpo 
messo a segno nella sua collana di libri 
dedicati allo ZX Spectrum e sarà di 
grandissima utilità per tutti gli appassio- 
nati, presenti e futuri, di computer gra- 


phic. 


I libri possono 
essere 
ordinati 


utilizzando 
il campione 
a pag. 82 


Sensazionale! 


INTERFACCIA 1 + MICRODRIVE E 
SOFTWARE. fascio son Sena designer, Ant ata 
A SOLE LIRE 248.500 +IVA 


Ed ecco finalmente le 
esclusive confezioni di 
singole cartridge per 
microdrive, originali 
Sinclair, a un prezzo 
veramente da sballo!! 


INTERFACCIA PROGRAMMABILE 
PER JOYSTICK 


A SOLE 


L. 59.750 
+ IVA 


La Stonechip Electronics é 
stata la prima ditta a realizza- 
re per lo Spectrum un’interfac- 
cia programmabile, considera- 
ta in Inghilterra fra le migliori. 
Facile da usare, si programma 
da tastiera. Garanzia 6 mesi. 


Non rinunciare alle possibilità del tuo Spectrum, ora puoi 


ESPANDERE LA TUA RAM A 48K 


con il kit della ditta inglese Fox Electronics; i chip sono facilissimi da 
montare grazie alle chiare istruzioni e con un programma test allega- 
to ne verificherai il funzionamento. Noi te lo proponiamo 


AL PREZZO DI LIRE 57.500 + IVA 


12 COMPUTER CASSETTE C-20 A SOLE LIRE 11.400 + IVA 
Nastro PE AGFA, scorrimento su perni in acciaio, box trasparente. 


50 FANTASTICI VIDEOGIOCHI 50 


Registrati su nastro, della software-house inglese Cascade 
Games, all'inverosimile prezzo di sole Lire 25.000 + IVA!! 


Spedire il presente MODULO D’ORDINE, o fotocopia, in una 
busta chiusa, unendo L. 2.600 in francobolli per spese postali. 


Spettle APCO s.r.I. - Cas. Post. 239 - 10015 IVREA (TO) 


desidero ricevere quanto da me contrassegnato con X. Pagherò 
direttamente ai postino gli importi qui elencati, che sono com- 


prensivi di IVA e di spese di imballo e contrassegno. SS) 
L] Interfaccia 1 + Microdrive + Software a L. 296.000 
TNA confezioni di microcartridge, caduna E E500 
[] Interfaccia programmabile per Joystick aL. 72.000 
L] Kit di espansione a 48K RAM aL. 69.000 
[NN confezioni di 12 cassette C-20, caduna. a L. 15.000 
L] Raccolta di 50 VIDEOGIOCHI su nastro aL. 30.000 
Nome e Cognome 

Via 

Gitapemnie e ei  e AR LGRAR: 
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Gli annunci 
di ZX Club 


I Spectrum Club di Legnano offre 
a tutti i possessori di Spectrum l’op- 
portunità di ricevere una cassetta al me- 
se contenente 10 giochi con gli ultimi 
arrivi dall'Inghilterra. La quota per ade- 
rire all’iniziativa è di Lire 15000. Chi 
fosse interessato o desiderasse maggio- 
ri informazioni può rivolgersi al club, il 
cui indirizzo è: 


SINCLAIR CLUB LEGNANO 
c/o Sergio D'Amico 

Via 5 Giornate, 14 

20025 Legnano MI 

Tel.: 0331/595581 


Chi si iscrive al Sinclair New Club rice- 
verà per un anno il bollettino e gli adesi- 
vi del club, un programma e potrà an- 
che contare su interessanti sconti. 

Il club dispone inoltre di ampia softeca 
e dichiara di voler aiutare i soci che 
intendano commercializzare il proprio 
software originale. Per ulteriori infor- 
mazioni rivolgersi a: 


SINCLAIR NEW CLUB 
c/o Gianpaolo Gentili 
Via Turati, 10 

10024 Moncalieri TO 
Tel.: 011/6407195 


Il Sinclair Club Roma-Talenti cerca soci 
in tutta Italia e vende raccolte di 16-18 
programmi per lo Spectrum, con istru- 
zioni, a Lire 28000. Per maggiori infor- 
mazioni su questa iniziativa o per iscri- 
versi al club scrivere a: 


SINCLAIR CLUB ROMA-TALENTI 
c/o Massimo D'Ascenzo 

Via F. D’Ovidio, 109 

00137 Roma (RM) 

Tel.: 06/828000 


I programmi di ZX Club 


Questo mese pubblichiamo due contri- 
buti di soci del Gruppo Utilizzatori Com- 
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puter Sinclair di Napoli: il primo è 
Block, simpatica utility dedicata a tutti 
i lettori che intendono proteggere i pro- 
pri listati da occhi indiscreti; il secondo, 
Disegno, è un pacchetto grafico che si 
fa apprezzare per la completezza delle 
opzioni e per essere realizzato in BASIC 
(ad eccezione di una routine per la me- 
morizzazione del disegno in RAM), di- 
mostrando che si possono scrivere buo- 
ni programmi senza ricorrere a esoterici 
linguaggi e mantenendo dimensioni re- 
lativamente contenute. 


Block 
Versione per Spectrum 
16K/48K 


Chi è costretto a condividere il suo 
Spectrum con altre persone può talvol- 
ta essersi rammaricato del fatto che al- 
tri potessero vedere i suoi lavori o i suoi 
listati senza il suo consenso. Casi tipici 
in tal senso possono concernere il bilan- 
cio familiare, l'agenda degli indirizzi, 
ecc. Vi propongo pèrciò una protezione 
(vedi listato 1), che permette di caricare 
il programma principale in memoria, 
ma che non ne permette il lancio, se non 
dopo aver inserito il codice esatto, che 
ognuno di voi potrà scegliere secondo 
le proprie esigenze o fantasia. La routi- 
ne andrà inserita al principio del pro- 
gramma che si vuole proteggere, per 
poi salvare il tutto su nastro nel seguen- 
te modo: 


POKE 23613,0: SAVE “nome pro- 
gramma” CODE 23552, PEEK 23649 
+ 256 * PEEK 23650 — 23552: RUN 


Quando il programma sarà richiamato 
dalla cassetta (esclusivamente con 
LOAD “” CODE) partirà in autostart 
chiedendoci il codice segreto; se il codi- 
ce sarà esatto, il programma principale 
verrà lanciato, mentre se il codice sarà 
errato, si resetterà la memoria. Un con- 
siglio: non dimenticate il codice! 


Disegno 

di Luigi Palumbo 

Versione per Spectrum 48K 
Come è facile intuire, il programma per- 
mette di disegnare sullo schermo: esso è 
particolarmente indicato per il disegno 
tecnico, grazie all’ampia gamma di op- 
zioni di cui è dotato. Al lancio del pro- 
gramma vengono presentate le istruzio- 
ni, contenenti l’elenco di tutti i tasti da 
premere per ottenere determinati risul- 
tati. Non preoccupatevi, se la lista dei 
comandi è lunga: in ogni istante essa 
potrà essere rivisualizzata premendo il 
tasto “i”. Prima di iniziare a disegnare 
è necessario scegliere i colori per BOR- 
DER, PAPER e INK e il passo di scrittu- 
ra (STEP). Notate che quest’ultimo è 
riferito al tracciamento di linee (tasti 3-4 
e 9-0): a seconda dei valori impostati, 
varierà ovviamente l’inclinazione della 
linea (SLOPE). Selezionati tutti questi 
valori (ma quelli relativi allo STEP po- 
tranno essere modificati durante il lavo- 
ro) vi troverete in pagina grafica, che 
presenta sempre in basso sul video i 
valori delle coordinate del cursore. La 
prima cosa da fare è premere il tasto 
“2”, poi, se volete disegnare subito, il 
tasto “1”: spostandovi con i tasti del 
cursore inizierete a tracciare una linea. 
Tenete presente che in pratica i tasti 
“1” e “2” possono essere considerati 
quali penna-giù (disegna) e penna-su 
(spostati senza disegnare). A voi scopri- 
re adesso tutte le altre possibilità di 
questo programma, quali i reticoli, la 
memorizzazione di punti notevoli, la 
possibilità di tracciare archi, di stampa- 
re copie, ecc... Prima di iniziare, ancora 
due raccomandazioni: se dovete uscire 
dalla pagina grafica, assicuratevi di 
aver premuto il tasto “G”, corrispon- 
dente all’opzione di salvataggio in RAM 
del disegno (richiamabile poi con “R”); 
inoltre ricordate di salvare il program- 
ma con SAVE “disegno” LINE 2000: 
infatti è fondamentale che il program- 
ma parta caricando subito le due brevi 
routine in l/m per la memorizzazione 
del grafico prima che esse vengano 
chiamate dal Basic. 


Block 
versione per ZX Spectrum 16K/48K 


1 POKE 23613,0 
2 (INPUT "CODICE 2? "as 
3 IF a$="codice segreto" THEN 


GO TO 5 
4 NEW 
5 REM da qui inizia il vostro 
programma 
Disegno 
versione per ZX Spectrum 48K 
INCHSM:NLE Tx 0 LET y;l=0 
2 LET £1=0 
10 BORDER 6: PAPER 6: INK 0: CLS 
20 LET a$=" DISEGNO DISEGNO D 
ISEGNO Lu 
30 FOR a=l TO LEN a$ 
40 IF CODE a$(a)<32 OR CODE a$(a)>l 
64 THEN LET a$(a)="" 
50 NEXT a E 
60 LET t=10: IF t<1l OR t>10 THEN 
GO TO 60 
70 FOR a=3 TO 7: PRINT AT a_,0; 
PAPER 2;"{G8} {29G8}": NEXT a 
80 IF LEN a$<32 THEN DIM h$(32- 
LEN a$+10) 
90 IF LEN a$>31 THEN DIM h$(10) 
100 LET b$=a$+h$: LET c$=b$ 
105 FOR n=1 TO 20 
Tl'OSPRINPUAT 5,05 INK (0/cSiQMT0 N32) 
120 LET c$=c$(2 TO ): IF. LEN c$<32 
THEN LET c$=c$+b$ 
125 IF INKEYS$<>"" THEN GO TO 210 
130 PAUSE t*5: NEXT n: BORDER 7: 
‘PAPER 7: INVERSE 0: CLS 
210 CLS : PRINT AT 0,6; PAPER 1; 
INK #75 UT SETORCU ZIE RI ONNENIA 
212 PRINT ' 
215 PRINT "-per DISEGNARE E 
asto 1" 
220 PRINT "-per CANCELLARE/SPOSTARE 
un 2" 
225: PRIND./M- SINISTRA ALTO/BASSO 
uv 3/4 i 
230 PRINT " a SINISTRA/in BASSO 
vt 5/6 " 
235 PRINT " in ALTO/a DESTRA 
ur TASSO 
240 PRINT "- DESTRA BASSO/ALTO 
uv 9/ (0) " 
245 PRINT "-per DISEGNARE un ARCO 
ur a ULI . 
250 PRINT "-per DISEGNARE un CERCHIO 
ur e" ° 
255 PRINT "-per CONSERVARE GRAFICO 
ur LI 


260 


265 


PRINT "-per RICHIAMARE GRAFICO 
ut ce 

PRINT "-per RETICOLO a LINEE 
vir INZONA 


3105 
SITA 
380 
385 


387 
390 
395 
400 


405 


.406 


410 


415 


420 


425 


PRINT "-per RETICOLO a PUNTI 


us p/k" 
PRINT "-per MEMORIZZARE DATI 
ni m" 
PRINT "-per PUNTI su GRAFICO 
ri n" 


PRINT "-per CAMBIO STEP/SLOPE 

ut Su 
PRINT "-per TABULAZIONE DATI 
ur GU 
PRINT "-per QUESTE ISTRUZIONI 

ur HS 
PRINT "-per STAMPARE COPIA 
ut z" 

IF £1=0 THEN GO TO 320 
PRINT #0;"Premi x per tornare al 

disegno": PAUSE 0: IF INKEYS$="x 
" THEN RANDOMIZE USR 58412: 

LET £1=0: PAUSE 0: GO TO 405 
LET x1=0: LET yl=0: INPUT “Color 
e BORDO ((0/=7)). -.b 
IF b>7 OR b<0 THEN GO TO 320 
INPUT "Colore FONDO (0705 
IF p>7 OR p<0 THEN GO TO 330 


INPUT "Colore PENNA (OSWOGE 
IF i=p OR i>7 OR i<0 THEN 

GO TO 340 

FOR x=0) TO 255 STEP 8: PLOT x,,0: 
NEXT x 

FOR y=0 TO 175 STEP 8: PLOT 0,y: 
NEXT y 

EOREx=0!/TOT255ESTEP8: FPGOR al 
Se NEXI x 

FOR y=0 TO 175 STEP 8: PLOT 255, 
y: NEXT y 

PAPER p: INK i: BORDER b 

CLS 

DIM m(20): DIM n(20) 

LET p=0: LET x=0: LET y=0: LET d 
=1: LET h=0: LET k=0: LET r=0 
PRINT 


INPUT "STEP x="h,"y="5k 

LET T=CODE INKEYS-47 

TR T>=0 AND T<11 THEN GO SUB T* 
100+400 

POKE 23677,x1: POKE 23678,yl: 
PRINDOEGFOSA PR 0,0 3x=Ue xv, 
R=";r: DRAW x-xl,y-y! 


PAUSE 0: LET x1=PEEK 23677: 
LET yl=PEEK 23678 
IF INKEY$="g" THEN RANDOMIZE 


USR 58400 


IF INKEY$="a" THEN INPUT "quoz. 
il duze setto se ER ENPUTE!COO 
rdimategizetistty=t- a Wey="t be 


IF x+a<255 AND x-a>0 AND y+b<17 
5 AND y-b>0 AND x+r<255 AND x-r> 
0 AND y+r<175 AND y-r>0 THEN 


PLOT x,y: DRAW a,b,2*PI/r 
IF INKEY$="c" THEN LET a=x: 
GERAD=y: INPUTESRaggi optare 


IF a+2*r<255 AND a-2*r>0 AND b+ 
2*r<175 AND b-2*r>0 THEN 

GIRCLE a ,b,t 

TESENKEYS="r" “THENÙ CLS =: 
RANDOMIZE USR 58412 
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430 


435 


440 


445 


460 


470 
475 


IF INKEY$="l" THEN FOR x=238 

TOTI 7ISTED' 17: 0FOR ya 170 TO 0 
STEP -4: PLOT x,y: NEXT y: 

NEXT x: FOR y=157.5 TO 17.5 
STEP -17.5: FOR x=248 TO 4 

STEP -4: PLOT x,y: NEXT x: 

NEXT y: LET x1=0: LET yl=0: 

LET x=0: LET y=0 

IF INKEY$="h" THEN FOR x=238 
TO 17 STEP -17: FOR y=171 TO 0 
STEP -4: OVER 1: PLOT x,y: 

NEXT y: NEXT x: FOR y=157.5 
TONI=5 ASTEDC=17-5: FORSx=248 
TO 4 STEP -4: OVER 1: PLOT x,y: 
NEXT x: NEXT y ’ 

IF INKEY$="p" THEN FOR x=248 
TO 8 STEP -8: FOR y=168 TO 4 


. STEP -8: PLOT x,y: NEXT y: 
NEXT x: LET x1=0: LET yl=0: 
LET x=0: LET y=0 


THEN FOR x=248 
FOR y=168 TO 4 


IF INKEYS="k" 
TO 8 STEP -8: 


STEP -8: OVER 1: PLOT x,y: 
NEXT y: NEXT x: LET x1=0: LET y 
1=0: LET x=0: LET y=0 


IF INKEY$="n" THEN FOR p=1 TO 2 
0: IF n(p)>O THEN LET a=23- 

INT (n(p)/8): IF m(p)>0 THEN 

LET b=INT (m(p)/8): IF a>0 oRa 
<=30 OR b>0 OR b<=20 THEN 


PRINT AT a-1,b-1;"P": PAUSE 100 
: NEXT p 

IF INKEYS$="m" THEN LET p=p+l: 
LET m(p)=x: LET n(p)=y: PAUSE 2 


00 

IF INKEY$="s" THEN GO TO 390 

IF INKEY$="t" THEN RANDOMIZE 

USR 58400: CLS : PRINT AT 078 ol 

ABULAZIONE DATI": FOR p=1 TO 20: 
PRINT TAB 5;"P";"(";p;")":;TAB 1] 
0;m(p);TAB 15;n(p): NEXT p: 


Modifiche al ... modello 740 


480 


485 
490 


495 
500 


550 
600 
700 


800; 


850 
900 


950 
1000 
1050 
1100 
1150 
1200 


1.250 


\300 


1350 
1400 


1500 
2000 
2010 


2020 


PAUSE 0: CLS : RANDOMIZE USR 58 
412 

IF INKEY$="i" THEN RANDOMIZE 
USR 58400: LET £1=1: CLS : 

GO TO 210 

IF INKEY$="z" THEN COPY 

IF d=0 AND POINT (x,y)=1 

THEN PLOT OVER l;x,y 
GO TO 395 

IF x=255 OR x>=256-h OR y=175 
OR y>=176-k THEN RETURN 

LET x=x+h: LET y=y+k: RETURN 
LET d=1: RETURN 

LET d=0: RETURN 

IF x=0 OR x<=h-1 OR y=175 OR y 
>=176-k THEN RETURN 

LET x=x-h: LET y=y+k: RETURN 
IF x=0 OR x<=h-1 OR y=0 OR y<=k- 
1 THEN RETURN 

LET x=x-h: LET y=y-k: RETURN 
IF x=0 OR x<=h-1 THEN RETURN 
LET x=x-1: RETURN 

IF y=0 OR y<=k-1 THEN RETURN 
LET y=y-]: RETURN 

IF y=175 OR y>=176-k THEN 
RETURN 


LET y=y+1]: RETURN 


IF x=255 OR x>=256-h THEN 


RETURN 

LET x=x+1: RETURN 

IF x=255 OR x>=256-h OR y=0 OR y 
<=k-1 THEN RETURN 


LET x=x+h: LET y=y-k: RETURN 
CLEAR 58399: LET s$="03300006401 
70642280010000272371762010330642 
28017000064001000027237176201" 
FOR n=0 TO 23: POKE 58400+n, 
VAL*S9!(3£n#1 To 8*n+3) = NEXTOn 
GO TO 1 


Il programma “il modello 740 con lo Spectrum” presente sulla cassetta allegata a questo 
numero di SUPERSINC necessita di alcune modifiche marginali, necessarie a far sì che il 
programma non si blocchi in alcuni casi particolari: 


a) sottoprogramma “740/84 1” 
1) modificare la linea 150 in 
150 LET o$=“”: IF t<=> VAL “2” THE GO TO VAL “240” 
b) sottoprogramma “740/84 2” 
1) alla linea 5215, al termine della lunga fila di LET presenti, va aggiunto LET fc2=0 
2) nella linea 5350, la parte 
cl+cc1> VAL“17690” 

va cancellata e rimpiazzata da 
(c1+cc1)/ dm1> VAL“1474.201” o 

3) stessa cosa alla linea 5360, dove però le variabili in gioco sono c2, cc2, e dm2. 
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Vendo videogioco Intellevision con 6 
giochi, inoltre cerco possessori di 
Spectrum per scambio di idee e di pro- 
grammi. Roberto Arena - Via Groane, 
53 - 20030 Seveso (MI) - Tel. 
0362/500801 


Vendo Atari video computer system 
più 2 cartucce (Pac Man, River Raid) 
usato due mesi a L. 230.000 per passag- 
gio a ZX Spectrum. Prezzo trattabile. 
Scrivere subito - Roberto Pionzio - Via 
Provinciale, 1 - 10010 Settimo Vittone 
(TO) - Tel. 0125/75813 


Cambio vendo software Spectrum 48 
Kbyte, dispongo di oltre 100titoli. Tutti 
i games che cerci con le ultime novità 
inglesi e le utilities più interessanti. Ri 
chiedere informazioni e/o elenco. Trat- 
to solo con la zona di Milano e dintorni. 
Roberto Natali - Via Taormina, 40 - 
20159 Milano - Tel. 02/6896066 


Eccezionale! Posseggo moltissimi pro- 
grammi per Spectrum 48 Kbyte (e an- 
che 16 Kbyte) come Fighter Pilot, Atic 
Atac e numerosi altri. Li cambio o li 
vendo tutti a prezzi molto bassi (L. 500 
- L. 2.000 l'uno). Per avere ulteriori in- 
formazioni, scrivetemi o telefonatemi: 
Marco Tonetti - Via A. Saffi, 11 - 10138 
Torino - Tel. 011/444826 


Vendo stampante GP50S, 3 mesi di 
vita, a sole L. 270.000. Telefonare ore 
ufficio. Tratto solo con Milano e zone 
limitrofe. Roberto De Peccati - Via 
Trieste, 27 - 20021 Bollate (MI) - Tel. 
02/3560313 


Vendo Spectrum 48 Kbyte, issue 3, an- 
cora in garanzia più manuale in italiano, 
libro sul linguaggio macchina, interfac- 
cia Kempston, oltre 200 programmi, il 
tutto a L. 400.000. All’acquirente regalo 
un microdrive. Eugenio Bon - Via Str. 
di Prepotto - 33043 Cividale (UD) 


Compro ZX Spectrum non riparabile 
per recupero componenti. Telefonare 
ore 18-20 a Filippo. Filippo Tommaso - 
Via Tevere, 15 - 00198 Roma - Tel. 
06/8444751 


Vendo, cambio per ZX Spectrum (Jet 
Set Willy, The Bird & The Bees, Bip- 
Bop, Tutankhamun, Frogger 6 Kbyte) 
a L. 2.000 l’uno o cambio con software 
analogo, preferibilmente a 48 Kbyte. 
Guglielmo Frezza - Via A. da Bassano, 
32 - 35100 Padova - Tel. 049/605277 


Cambio, vendo programmi per ZX 
Spectrum. A L. 10.000 15 fantastici gio- 
chi 16/48 Kbyte: Match Point, Sports 
Hero, Knight Lore, ecc. Mi interessano 
soprattutto programmi di vera utilità. 
Inviatemi o richiedete una lista. Gian 
Luigi Parrocini - Via Bagnara, 7 - 06025 
Nocera (PG) - Tel. 0742/818262 


Per ZX Spectrum compro, cambio, 
vendo programmi BASIC e LM, molte 
utility, telefonare o scrivere per lista. 
Disponibili più di 150 programmi. Ales- 
sandro Cumin - Via Berla - 34136 Trie- 
ste - Tel. 040/43280 


Vendo joystick programmabile com- 
pleto di interfaccia e cassetta dimostra- 
tiva. Valore commerciale L. 99.000, 
vendo a L. 75.000. Ottimo stato, telefo- 
nare per maggiori informazioni. Davide 
Sciannimonaco - Via Botricello, 11 - 
00040 Roma - Tel. 06/6173630 


Vendo Sinclair ZX81 a 16 Kbyte con 
manuale in italiano e libro “66 program- 
mi per ZX81“, inclusi cavetti per regi- 
stratore ed altri 22 programmi a sole L. 
200.000 più manuale in inglese. Stefano 
Rossi detto Baldini - Via Raffineria, 11 - 
34100 Trieste - Tel. 040/755210 


Vendo AIM 65 Rockwell 4 Kbyte con 
mobile portascheda, completo di ac- 
cessori al miglior offerente. Oppure 
cambio con periferiche per Spectrum. 
Francesco Ghirotti - Via Perilli, 1 - 
48100 Ravenna - Tel. 0544/422254 


Cerco programma per tradurre listati 
di altri computers in programmi che 
girino sullo Spectrum. Francesco Ghi- 
rotti - Via Perilli, 11 - 48100 Ravenna - 
Tel. 0544/422254 


Compro dal miglior offerente qualsiasi 
gioco Adventure per ZX Spectrum con 
grafica, corredato di istruzioni con 
eventuale manuale. Anche fotocopie, 
purché leggibili. Francesco Ghirotti - 
Via Perilli, 11 - 48100 Ravenna - Tel. 
0544/422254 


Causa urgente realizzo cedo ZX Spec- 
trum 48 Kbyte, stampante Sinclair con 
2 rotoli di carta, floppy disk drive con 5 
dischi e circa 80 programmi su cassette 
a L. 1.200.000 non trattabili. Massimo 
Trevisan - Via San Jacopo, 175 - 56100 
Pisa - Tel. 050/40792 (ore pasti). 


Vendo ZX Spectrum 48 Kbyte nuovo 
con interfaccia joystick, 1 joystick, sta- 
bilizzatore, box sonoro e tantissimi 
programmi a solo L. 450.000. Oppure 
cambio con CBM 64 più registratore. 
Elio Marchi - Via S. Donato, 72 - 55100 
Lucca - Tel. 0583/584651 


Compro, cambio, vendo software per 
ZX Spectrum 16-48 Kbyte sia per corri 
spondenza, sia di persona. Scrivetemi 
o telefonatemi ore 17-19.30. Preferibil- 
mente tratto con la zona di Milano. 
Andrea Nacmias - Via P. Verri, 3 
20121 Milano - Tel. 02/783260 


Regalo ZX Spectrum da riparare a chi 
acquista in blocco il software Spectrum 
in mio possesso a L. 150.000. Vendo 
interfaccia doppio drive per Apple II e 
compatibili a L. 90.000. Vincenzo Sivie 
ro - Casella Postale 2 - 81055 S. Maria 
Capua Vetere (CE) 


Vendo ZX81 più espansione grafica, 
espansione 64 Kbyte, Assembler in 
ROM (tutto della Memotech), istruzio 
ni in inglese ed italiano, cavetti, 2 libri 
sul BASIC e LM, libro “66 programmi 
per lo ZX81“, 200 programmi a L. 
500.000 non trattabili. Francesco Ador- 
nato - Via C. Dentato, 11 - 20146 Mila- 
no - Tel. 02/470372 


Compro, vendo, cambio software per 
lo ZX Spectrum. Ultimi arrivi, Disponi 
bili sia su nastro che su carta. Per rice- 
vere la lista inviare un francobollo per la 
risposta a: Massimo lacobini - Via Pe- 
ralba, 5 - 00141 Roma - Tel. 06/896772 


Per ZX Spectrum vendo a prezzi strac- 
ciati tutti i miei programmi e le raccolte 
su cassetta a metà prezzo ( e anche 
meno). Riccardo Capra - Via Ronca- 
glie, 28 - 25062 Concesio (BS) - Tel. 
030/2751237 


Vendo per Spectrum 48 Kbyte un pro 
gramma che permette di programmare 
in FORTH: Abersoft FORTH originale 
Melbourne House, mai usato, a L. 
15.000. Telefonare ore pasti. Luca 
Mantovani - Via Emilio De Marchi, 8 - 
20125 Milano - Tel. 02/600392 


Vendo cassetta sa 60 con 20 program- 
mi per ZX Spectrum 16/48 Kbyte a L. 
25.000, tutto compreso in contrasse 
gno. Dispongo dei migliori titoli origina- 
li inglesi (Decathlon. Match Point, 
Olympicon, Mugsy, Pogo, ecc.) o cam- 
bio alla pari. Scrivetemi ed invierò la 
mia lista. Paolo De Rosa - Via Monte- 
pellegrino, 144 - 90142 Palermo - Tel. 
091/545384 


Vendo Intellevision con 21 cartucce (le 
migliori tra cui Soccer, QBert, Atlantis, 
Tennis, Advanced Dung and Dragons, 
ecc.) a L. 450.000 (zona Palermo). Pao- 
lo De Rosa - Via Monte Pellegrino, 144 - 
90142 Palermo - Tel. 090/545384 


Vendo traduzioni dattiloscritte manua- 
le del programma “Masterfile“ a L. 
10.000 contrassegno. Enciclopedia 
Elettronica ed Informatica Jackson a L. 
180.000 (valore commerciale L. 
350.000). Giovanni Natale - Via Trieste, 
36 - 93100 Caltanissetta - Tel. 
0934/22775 (ore pasti) 


Cambio quasi 700 titoli in LM per Spec 
trum. Tutte le novità inglesi. Anche se 
non hai titoli da scambiare, telefona: 
troveremo un accordo. Rosario Di Mo- 
dica - Via Castelfidardo, 37 - 97019 Vit 
toria (RG) - Tel. 0932/983512 (ore 14 
15) 


Cambio software ZX Spectrum (Sabre 
Wulf, Mugsy, Decathlon, Macth Day, 
Calcio) con stampante Alphacom o 
Seikosha con o senza interfaccia. Pos- 
sibile vendita singola di giochi: L. 
15.000 l’uno trattabili. Francesco Goli 
nelli - Via Bellaria, 28 - 40139 Bologna 
Tel. 545446 


Vendo copiatore per Spectrum a L. 
15.000. Nessun limite. Arnoldo Cicalò - 
Via Di Pratale, 103 - 56100 Pisa - Tel. 
050/570384 


Cambio superprogrammi per Spec- 
trum tra cui Spectral Invaders, Spec- 
tres, Spdier, Hamburger, Il Gobbo di 
Notre Dame, La Rana, Attacco, Jet- 
pac, 3D Tank, DDT, Sci d'Acqua, Ma 
nic Miner, ecc. Mandate la vostra lista 
o telefonate ore pasti. Gabriele Barrera 

Via G. di Barolo, 3 - 10124 Torino - 
Tel. 011/833043 


Cambio o vendo programmi per VIC 
20 con altri per ZX Spectrum (inviare 
l'elenco). Alessandro Cianfanelli - Via 
Lucio II, 46 - 00167 Roma 


Cambio, vendo programmi originali 48 
Kbyte di “Load’n'Run“ con altri pro- 
grammi per ZX Spectrum. Inviare elen 
co. Alessandro Cianfanelli - Via Lucio 
II, 46 - 00167 Roma 


Vendo, cambio software di altissima 
qualità per ZX Spectrum (L. 2.500); 
sono incluse tutte le ultimissime novità 
del mercato inglese. Complete di istru 
zioni. Inviare o chiedere elenco (750 
programmi). Bruno Mautone - Via 
Trentino, 74 - 80145 Napoli - Tel. 
081/7540707 


Cambio o vendo oltre 800 programmi 
per ZX Spectrum: programmi di utilità, 
simulatori di volo, programmi didattici, 
vari giochi e ultime novità. Enzo Pro- 
chilo - Via Castel Colonna, 2 - 00179 
Roma - Tel. 06/781113 


Compro, vendo, cambio i migliori pro- 
grammi per Spectrum 16/48 Kbyte. 
Contattatemi e vi invierò gratuitamen- 
te la mia lista. Vendo programmi al 
massimo a L. 4.000. Stefano Fantoni 

Via Luigi Perna, 51 - 00142 Roma - Tel 
06/5403323 


Vendo e cambio fantastici giochi per 
Spectrum 48 e 16 Kbyte. Giochi stu- 
pendi, invio la lista gratis. Un gioco L. 
4.000, 10 giochi L. 30.000. Ho inoltre un 
programma duplicatore che vendo a L. 
7.000. Gianni De Bonis - Viale Premu- 
da, 8 - 73100 Lecce - Tel. 0832/22409 


Vendo cambio software per ZX Spec- 
trum. Dispongo di circa 600 titoli con 
tutte le ultime novità inglesi. Condizio- 
ni vantaggiosissime per quantitativi. 
Eraldo Taioli - Via F. Braganti, 8- 47100 
Forlì - Tel. 0543/65633 


Cerco stampante per Spectrum. In 
cambio offro 150 programmi a scelta 
Vendo programmi a L. 1.000 cadauno 
Sconti per quantitativi. Dispongo di 
Chequered Flag, Atic Atac, Manic Mi 
ner, Jet Set Willy, Flight Simulation, 
Ant Attack, Ingegneria, Vu Calc, Vu 
File, ecc.). Davide Di Dio - Via Carlo 
Alberto, 46 - 80045 Pompei (NA) - Tel 
081/8635055 
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Vendo software per ZX Spectrum 16- 
48 Kbyte; dispongo di: Mugsy, Psytron, 
Decathlon, Hurg, The Hulk, ecc, ecc. Il 
prezzo è di L. 2.000 cadauno (ordine 
minimo 5 programmi). Per lista scrive 
re a: Roberto Montanari - Via Val Di 
Fassa, 37 - 48100 Ravenna 


Attenzione! Vendo e scambio fantastici 
programmi dal prezzo bassissimo 
Scrivetemi! Risposta garantita. Flavio 
Chianese - Via Virgilio, 17 - 34170 Gori 
zia - Tel. 0481/33183 


Vendo, cambio software per ZX Spec- 
trum tra il migliore in circolazione. 
Prezzi bassissimi. Richiedere la lista in- 
viando il bollo per la risposta. Andrea 
Staccioli - Via A. Schivardi - 00144 Ro- 
ma - Tel. 06/5984720 


Vendo, cambio programmi per Spec- 
trum a L. 2.000 (48 Kbyte), a L. 1.000 
(16 Kbyte). Richiedetemila lista in cam- 
bio della vostra. Ultime novità inglesi 
tra le quali spicca lo sport: World Cup 
(Calcio), Match Point (Tennis), De 
cathlon, Stop The Express, Tornado 
Level, The Hulk e tanti altri. Alfio Milo- 
ne - Via Carnazza, 8- 95125 Tremestie- 
ri Etneo (CT) - Tel. 580051 


Vendo Sinclair ZX81 con espansione a 
16 Kbyte con alimentatore, manuale in 
italiano, libro “66 programmi per 
ZX81“, cavetti per il registratore, 22 
programmi ciclostilati a L. 200.000. Il 
tutto come nuovo. Stefano Rossi detto 
Baldin - Via Raffineria, 11 - 34100 Trie- 
ste - Tel. 040/755210 


Vendo registratore Normende nuovo 
per adattarlo allo ZX Spectrum. Il co- 
sto attuale è di L. 90.000: io lo vendo a 
L. 30.000. Ripeto, è nuovissimo. Inoltre 
dispongo di molti libri, cassette, utility. 
Vendo il tutto a prezzi bassissimi! Luca 
Mazzone - Via Roma, 16 - 82010 Apol 
losa (BN) - Tel. 0824/44194 


Vendo ZX Spectrum 48 Kbyte più ma- 
nuale in italiano, cassetta istruzioni, 50 
giochi originali e famosissimi: Hobbit, 
Chequered Flag, Mugsy, ecc. Vendo il 
tutto a L. 400.000. Massimo Milanesio - 
Via Rio Freddo, 32 - 10020 Revigliasco 
Torinese (TO) - Tel. 011/8609792 


Vendo, cambio programmi per ZX 
Spectrum, 16-48 Kbyte. Possiedo più di 
100 programmi quali Manic Miner, Jet 
Pac, Vu:File, Vu-Calc, Cosmic Crui- 
ser, Scacchi, Ah Didduns. Rispondo a 
tutti. Massimo Perona - Via G. Matte- 
otti, 26 - 13050 Camburzano 


Vendo ZX Spectrum 48 Kbyte comple- 
to di alimentatore e cavi. In più 30 ecce- 
zionali software, causa doppio regali, a 
sole L. 400.000. Due mesi di vita. Tele- 
fonare ore pasti. Emiliano Cecchetti - 
Viale Duca d'Aosta, 13 - 21052 Busto 
Arsizio (VA) - Tel. 0331/631664 
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Affarone! Cambio software per Spec- 
trum tra cui: Atic Atac, Sabre Wulf, Jet 
Set Willy, Manic Miner, Olympycon, 
Alchemist, Fred, Jet Pac, ecc. Posseg 
go più di 250 games anche molti classi 
ci (Scacchi, Dama, Domino). Telefona 
te ore pasti. Ciao! Gabriele Barrera 
Via G. di Barolo, 3 - 10124 Torino - Tel. 
011/833043 


Vendo a L. 600 cadauno programmi 
per Spectrum di ogni tipo. Cambio 
hardware per Spectrum con software. 
Matteo Tosato - Via Massignane - 
36025 Noventa Vicentina (VI) 


Compro espansione di memoria 16 
Kbyte per ZX81 ad un prezzo conve- 
niente. Scrivere o telefonare a: Filippa 
Rizzo - Via Triumvirato, 141 - 40132 
Bologna - Tel. 051/726264 


Vendo, cambio o compro software per 
ZX81 (1-16 Kbyte), Spectrum (16-48 
Kbyte anche su microdrive), C64 (an- 
che su disco), C16 (anche su disco), 
VIC 20 (3-16 Kbyte), TI 99/4A (anche 
Extended BASIC), Sega SC-3000, 
Sony Hit-Bit, Atari 800 XL, Standard 
MSX. Per un catalogo completo inviare 
L. 2.000 in francobolli, per le spese di 
spedizione postale, in una busta chiusa 
specificando il computer e l’indirizzo a: 
Orazio Di Giorgio - Via delle Gondole, 
79 - 00121 Ostia Lido (RM) - Tel. 
06/569283 


Scambio, vendo programmi per Spec 
trum 16/48 kbyte e per C64 su disco e 
cassetta a prezzi stracciati. Telefonare 
il pomeriggio - Luca Terzi - Milano - Tel. 
02/486413 


Vendo ZX81 completo di alimentatore, 
cavetti di collegamento, manuale origi 
nale in inglese e libro in regalo: “Guida 
al Sinclair ZX81”. Il tutto è nuovissimo 
e nell'imballo originale. Tutto a L. 
100.000 trattabili. Salvatore Colombo - 
Via Bellini, 51 - 92016 Ribera (AG) - Tel. 
0925/67080 


Vendo ZX Spectrum 48 Kbyte a 

L. 450.000; programmi per 16 Kbyte a 
L. 1.500-3.000; programmi per 48 
Kbyte a L. 4.500-7.500. A chi compra lo 
ZX regalo tutti i programmi. Andrea 
Mosconi - Via XI Febbraio, 2 - 27100 
Pavia - Tel. 0382/25830 


Vendo traduzioni di manuali come gui 
da al gioco dell’Hobbit - Valhalla - Sco 
pe - Trader - Pain Box - Hurg - Glider e 
molte altre. Vendo inoltre oltre 850 
programmi. Richiedere lista. Alberto 
Schmuckher - Corso Torino, 26/14 - 
16129 Genova - Tel. 010/58429 


Cambio, ma soprattutto vendo softwa 
re per Spectrum 16/48 Kbyte con le 
ultime novità inglesi. Prezzo ridicolo ed 
un portacassette in omaggio. Invia o 
richiedi gratuitamente la lista a Andrea 
Bimbo - Via Manzoni, 18 - 05100 Terni 

Tel. 55697 


Cambio Consolle Intellevision “nuova” 
per la ZX interface 1; se non siete entu 
siasti potrei anche aggiungere delle 
cassette, sempre Intellevision, stupen 
de. Scrivete per informazioni. France 
sco Bedetti - Via Zezio, 57/G - 22100 
Como - Tel. 275833 


Vendo, cambio programmi per ZX 
Spectrum. Ne ho moltissimi, più di 300. 
Ultime novità inglesi. Prezzi onestissi 
mi. Andrea Vicari - Vma Valtone, 72 
47031 S. Marino (Rep. di S. Marino) 
Tel. 0541/==1716 


Vendo software per ZX Spectrum 
(16/48 Kbyte) a prezzi bassissimi (da L. 
2.000 a L. 10.000). Videogiochi (Hob 
bit, Buck Rogers, Scacchi, Dama, 
ecc.), utility (Vu 3D, Agenda, Gestione 
Magazzino, S. Disegno, ecc.), Numeri 
Load Run (L. 5.000). Scrivetemi e rice 
verete gratis la lista completa. Roberto 
Russino - Via Mons. Fr. Bruno, 355 

98100 Messina - Tel. 090/49103 


Eccezionale cassetta con: Hobbit, Atic 
Atac, Penetrator, Ant Attack, Chess, 
Vu-Calc, Flight Simulation, Chequered 
Flag offro in cambio di: Alchemist, Co 
smic Cruiser, Subre Wolf, Stonkers o 
altri mancanti. Affrettatevi Fabrizio 
Bianchi - Via del Lampioncino, 15 
00040 Ariccia (RM) - Tel. 9330174 


Vendo, cambio più di 600 programmi 
per ZX Spectrum al prezzo di L. 2.000 
cadauno. Risposta assicurata, massi- 
ma serietà. Luigi Faberi - Via Campa 
gnola, 3 - 25079 Vobarno (BS) - Tel. 
0365/618388 


Affarissimo, vendo Atari CX 2600 più 1 
cassetta in omaggio a L. 180.000 tratta 
bili. Scrivere per accordi a: Marco Bar 
zaghi - Via Pilastrello, 9 - 20065 Inzago 
(MI) 


Vendo più di 30 programmi per Spec- 
trum 16/48 Kbyte a L. 2.000 e 3.000 
cadauno. Per la lista spedire L. 500 in 
francobolli. Cerco stampante in cam- 
bio di programmi. Dario Sciarrillo - Via 
Di Basovizza, 13 - 34016 Trieste (Opici 
na) - Tel. 211566 


Vendo ZX81 16 Kbyte, manuale inglese 
e italiano più software: Superprograms 
1, Mazogs, 1 Kspecial, Super Sinc 3, 1 
libro per ZX81], riviste per Sinclair, rivi 
sta inglese Sinclair User a prezzo da 
stabilire, ma molto basso (circa L. 
130.000). Lo consiglio ai principianti di 
poche pretese. Pietro Cristofoli - Via 
Poerio, 8 37124 Verona Tel. 
045/43404 


Vendo ZX81 - 32 Kbyte RAM- alimen 


tatore 1,2 A - cavetti - due manuali 
d'uso - stabilizzatore 5/15 V - giochi. 
Tutto in ottimo stato, telefonare la se 


ra. Giannantonio La Piana - Via Monte 
Velino, 24 - 20137 Milano - Tel. 5458275 


Cambio programmi per ZX Spectrum. 
Massimo Asquini - Via V. Brunacci, 1 
00146 Roma 


Vendo Spectrum 48 Kbyte più stam 
pante GP50S, radio, registratore, 8 li 
bri, oltre 200 programmi, tutto in bloc 
co a 

L. 950.000. Valore L. 1.500.000. Hubert 
Tomasi - Via 4 Novembre, 64 - 39012 
Merano - Tel. 0473/43475 


Conosco lo Spectrum come le mie ta 
sche: vendo programmi per scrivere in 
LM creato da me (48 Kbyte). Traduce 
direttamente dall’Assembler. E’ di livel- 
lo commerciale. Registrato stereo. In- 
vio descrizione dettagliata, L. 10.000. 
Adolfo Marigo - Via Delle Foppe, 6 - 
20040 Cavenago di Brianza (MI) 


Vendo, compro software per ZX Spec- 
trum, da L. 1.000 a L. 3.000. Inoltre 
cerco espansione di 32 Kbyte RAM a 
prezzo trattabile. Antonio Cioffi - Via 
Petriccione, 6 - 80100 Napoli - Tel 
081/7544136 


Vendo ZX Spectrum espanso 48 Kbyte 
con cavi collegamento e alimentatore, 
registratore Pooh ottimo, 5 cassette 
giochi, 2 utility in cassetta, cassetta di 
mostrazione, manule inglese e italiano 
sia per computer che per registratore a 
L. 500.000 trattabili. Thimoty Baran 
don - Via Don Cesare Maraffio - 22021 
Bellagio (CO) - Tel. 950342 


Vendo espansione issue 3 per memoria 
(da 16 a 48 Kbyte) a L. 75.000 (compre 
se spese di spedizione) con istruzioni 
dettagliate in italiano. Telefonare ore 
pasti. Oreste Collivignarelli - Via G. Di 
Vittorio, 159/H 71100 Foggia 

Tel.0681/33666 


Vendo ZX Spectrum 48 Kbyte, 6 mesi 
di vita con imballaggio originale, com- 
pleto di cavetti e manuale in italiano, 
interface 1, ZX microdrive, programmi 
ottimi e tra i più nuovi a L. 800.000 
trattabili. Regalo interfaccia per il vi- 
deo. Nicola Rizzoli - Via Cipriani, 15 
40131 Bologna - Tel. 051/520040 


Compro, cambio, vendo software per 
ZX Spectrum. Scelta fra 700 program- 
mi. Massima serietà. Cerco istruzioni 
di Snail Logo, Hunter Killer, U-Boat 
Hunter: eventuale scambio con softwa- 
re o pagamento. Beppe Fasolis - Corso 
Alba, 13 - 14100 Asti - Tel. 0141/53817 


Vendo Sinclair ZX Spectrum in ottime 
condizioni, manuali inglese ed italiano, 
cavetti e alimentatore a L. 400.000 trat 
tabili. Enrico Malvezzi - Via Michelan 
gelo, 8 - 15048 Valenza (AL) - Tel. 
0131/94978 


Vendo programmi per ZX Spectrum 16 
Kbyte a L. 3.500 e per 48 Kbyte a L.. 
4.500 (Manic Miner, Atic Atac, Che- 
quered Flag) più eventuali spese posta- 
li. Inoltre, a sole L. 50.000, 50 giochi; 
sono tutti originali inglesi. Fabrizio Ba- 
sile - Via A. Meucci, 9 - 90145 Palermo - 
Tel. 091/569156 


Vendo programmi su cassetta per 
Spectrum 16/48 Kbyte, 4 favolosi pro- 
grammi L. 15.000; titoli favolosi: Atic 
Atac, Manic Miner, Jet-Set Willy, Ant 
Attack e moltissimi altri. Chiedere lista 
a: Massimiliano Barro - Via Marche, 9 - 
20020 Lainate (MI) - Tel. 02/9375291 


Alt! Vendo Spectrum 48 Kbyte in otti- 
mo stato. Offro in omaggio consolle in 
metallo appoggia Spectrum, il manuale 
in italiano, i migliori 50 programmi del 
momento più 3 mesi di garanzia a mio 
carico. A L. 420.000. Enrico Levantino - 
Via S.Giuseppe, 52 - 21047 Saronno 
(VA) - Tel. 02/9626767 


Cambio programmi per ZX Spectrum. 
Se hai più di 400 programmi, inviami la 
tua lista più L. 500 in bolli ed avrai la 
risposta assicurata. Effettuo solo cam- 
bi. Massima serietà. Dispongo di più di 
800 programmi, in continuo aumento. 
Luigi Ballestin - Via M. Libertà, 367/11 - 
18038 Sanremo (IM) 


Vendo ZX Spectrum 48 Kbyte, com- 
pleto di alimentatore, cavetti, 10 mesi 
di uso con molti programmi di utilità e 
giochi (circa 100), il tutto a L. 450.000 
trattabili. Mauro Padovan - Via Bellini, 
24 - 47039 Savignano sul Rubicone 
(FO) - Tel. 0541/945790 


Vendo software per ZX Spectrum a 
prezzi eccezionalmente ridotti. Per in- 
formazioni e richiesta lista di program- 
mi scrivete a: Marco Arzani - Via Gio- 
vanni XXIII - 29017 Fiorenzuola d'Arda 
(PC) - Tel. 0523/982401 


Vendo ZX Spectrum 48 Kbyte, alimen- 
tatore, cavetti, manuale in italiano, 150 
programmi tra i più belli. Tutto a L. 
500.000 trattabili. Telefonare, escluso 
mercoledì, dalle 14.30 alle 17.30 a: Die- 
go Bonelli - Via Caduti di Piazza della 
Loggia - 25082 Botticino sera (BS) - Tel. 
030/2693085 


Vendo supercopiatore originale inglese 
(per esclusivo uso personale) per Spec- 
trum 48 Kbyte. Caratteristiche: copia 
programmi lunghi 47.5 K; Load e Save 
di programmi a velocità alterata; copia 
su microdrive. Prezzo non trattabile: L. 
50.000 comprese spese postali e ma- 
nuale d'uso. Massima serietà. Scrivere 
a: Giovanni Fila - Via Della Fontana, 9- 
21100 Varese (VA) 


Vendo ZX Spectrum 48 Kbyte più regi- 
stratore, light pen, software su casset- 
ta, riviste specializzate. Prezzo di listi- 
no L. 650.000 circa, vendo a L. 470.000. 
Mauro Pavone - Via Capecelatro, 30 - 
20148 Milano - Tel. 02/4075792 


Vendo, cambio ultime novità inglesi 
per Spectrum 48 Kbyte, corredate di 
istruzioni. Alcuni esempi: Hulk, Moon 
Alert, Mugsy, The Lord of Midnight, 
ecc. Francesco Papandrea - Via Seve- 
si, 2 - 21047 Saronno (VA) - Tel. 
02/9622369 


Svendo i migliori programmi per Spec- 
trum a L. 2.000 cadaunaolista gratuita. 
Inoltre vendo enciclopedia di Elettroni- 
ca e Informatica Jackson a L. 180.000. 
Telefonare ore pasti. Giovanni Natale 
Viale Trieste, 36 - 93100 Caltanissetta - 
Tel. 0934/22775 


Occasione: per passaggio ad Apple, 
vendo subito ZX Spectrum (2 mesi di 
vita, issue 3), più microdrive, interfac- 
cia 1, ZX printer nuovi, interfaccia pro- 
grammabile Kempston con reset auto- 
matico e luce di controllo, modem per 
Spectrum con integrato per raffredda- 
mento completo di cavi e manuali, in- 
terfaccia Centronics per qualsiasi 
stampante professionale e 700 pro- 
grammi tutti originali inglesi (natural 
mente sono gli ultimi usciti). Alessio 
Santangelo - Viale Gaurico, 283 - 00143 
Roma Eur - Tel. 06/5040151 


Maniaco videogiochista cerca dispera- 
tamente software per ZX Spectrum 48 
Kbyte a qualsiasi prezzo: possibilmen- 
te allegare istruzioni. Scrivere o telefo- 
nare a: Paolo Osculati - Via Perazzi, 15 
28100 Novara - Tel. 0321/392810 


Vendo ZX Spectrum 48 Kbyte comple- 
to di accessori, registratore, istruzioni 
in inglese ed italiano, varie cassette uti- 
lity e giochi, tutto nuovo a L. 400.000. 
Giorgio Apostolo - Via Ampère, 49 
20131 Milano - Tel. 02/292732 


Vendo stampante ZX printer con 5 ro- 
toli di carta a L. 90.000. Ugo Ciabattini - 
Via Ramperti, 31 - 00159 Roma - Tel. 
06/482952 


Vendo ZX81 completo di espansione 
16 Kbyte RAM, cavi, alimentatore, 3 
cassette, libro 66 programmi per lo 
ZX81 a L. 140.000. Per informazioni 
rivolgersi a: Roberto Contessa - Via 
Azalee, 15 00172 Roma - Tel. 
06/2802234 


Cambio programmi per ZX Spectrum. 
Ne posseggo circa 200, anche con 
istruzioni e manuali. Scrivetemi invian- 
do lista. Assicuro e richiedo massima 
serietà. Giorgio Dose - Via Della Badia, 
27 - 33052 Cervignano (UD) - Tel. 
0431/31830 


Eccezionali programmi a prezzi ridicoli 
per giochi ed utility come: Decathlon, 
Wargame, Streap-tease, Lo Spione, Il 
Meccanico, gestione archivio e magaz- 
zino, Magic Meanies, ecc. Scrivere o 
telefonare a: Andrea Giovagnoni - Via 
Archimede, 53 - 00197 Roma - Tel. 
06/3605505 


Compro espansione 16 Kbyte per 
ZX81 se a buon prezzo (sotto le L. 
60.000). Cambio inoltre programmi 16 
Kbyte per ZX81. Scrivete a: Luca Pa- 
van - Via Mozart, 22 - 20021 Bollate 
(MI) 


Causa doppio regalo vendo per realiz- 
zo immediato Spetrum 48 Kbyte a L. 
330.000 ed interface 1 più 1 microdrive 
a L. 240.000; vendibili anche separata- 
mente. Non vendo per corrisponden 
za. Marco/Paolo Villa - Piazza S. Lo- 
renzo, 2 - 20059 Vimercate (MI) - Tel. 
039/669623 


Vendo Spectrum 48 Kbyte, 1 anno,im- 
ballo originale, cavetti, alimentatore, 
manuali (inglese ed italiano), 100 pro- 
grammi, libri “77 programmi...*, “40 
best M/C routines“, “Exploring Adven- 
tures...“, “L’Assembler per lo ZX“; rivi- 
ste, fotocopie varie, il tutto in blocco a 
L. 450.000. Pierluigi Malvezzi - Via Pro- 
messi Sposi, 5 - 20142 Milano - Tel. 
02/8467085 


Compro, cambio programmi per Toto- 
calcio, Totip, pronostici corse cavalli, 
Tris, ecc. (non giochi). Sergio Zardo - 
Via 4 Novembre, 24/A - 21040 Uboldo 
(VA) - Tel. 9639929 


Vendo ed eventualmente cambio molti 
programmi per lo ZX Spectrum 160 48 
Kbyte. Dispongo di programmi origina- 
li inglesi e di Adventure in italiano. Al- 
cuni titoli: Pickamarama, Decathlon, 
Jet Set Willy. Roberto Carboni - Via A. 
Giovannini - 40129 Bologona - Tel. 
051/374555 


Volete imparare ad usare il Pascal sul 
vostro ZX Spectrum? Se sì, contattate- 
mi: vendo (causa doppio regalo) il libro 
“Impariamo il Pascal sul nostro compu- 
ter“ (Ed. JCE)a sole L. 15.000 (anziché 
L. 25.000) compresa cassetta con com- 
pilatore Pascal. Per zona Brindisi tele- 
fonare il sabato o la domenica. Manlio 
Castronuovo - Via Spazzapan, 1 - 
72100 Brindisi - Tel. 0831/85633 


Vendo 50 programmi e qualche utility. 
Prezzi molto bassi (max. L. 4.000) e... 
molta serietà. Rispondo a tutti. Enrico 
Di Nezza - Via XXIV Maggio, 135 - 
86170 Isernia - Tel. 0865/26105 


Cambio o vendo a prezzi irrisori 500 
programmi per Spectrum (molti corre- 
dati di manuali). Richiedere o inviare 
lista, oppure telefonare ore pasti. Gian- 
luca Angelozzi - Via Giuliozzi, 9 - 62100 
Macerata - Tel. 0733/32233 


Vendo ZX Spectrum 16 Kbyte comple- 
to di manuale in italiano, numerosi pro 
grammi a L. 300.000. Mauro Pili - Via 
XX Settembre, 14- 84100 Salerno - Tel. 
089/354497 


Vendo Spectrum 48 Kbyte 1 anno di 
vita in ottimo stato con 4libri (manuale, 
77 programmi, linguaggio macchina ed 
Assembler per principianti, program- 
mazione dello Spectrum), 10 cassette 
con 40 games e Pirata. Solo L. 500.000. 
Telefonare pomeriggio o sera. Sergio 
Pirola - Via G. Mazzini, 22 - 20061 Ca- 
rugate (MI) - Tel. 9253001 


Vendo per ZX Spectrum tutte le ultime 
novita; arrivi settimanali dall’Inghilter- 
ra; L. 3.000 un programma, sconti su 
grosse ordinazioni. Mensilmente viene 
effettuata una colletta di 20 programmi 
a L. 35.000. Tutto compreso. Massimi- 
liano Ingargiola - Via F. Turati, 9- 55049 
Viareggio (LU) - Tel. 0584/391934 


Vendo programmi per ZX Spectrum a 
L. 2.000 l’uno. Possiedo ultime novità 
inglesi come quelle dell’Activision: Pit- 
fall II, H.E.R.O,, River Ride, Enduro ed 
altri della produzione 1984. Telefonare 
ore serali. Fabio Consoli - Via Novalu- 
ce, 61 - 95100 Catania - Tel. 095/339675 


Vendo raccolte di programmi appena 
usciti dalle migliori case di software. 
Sono in possesso delle ultime novità; 
per informazioni telefonare: avrete tut- 
te le indicazioni sui programmi, i prezzi 
si decidono anche al momento. Massi 
miliano Nucci - Via Chimera, 22 - 52100 
Arezzo - Tel. 0575/351195 


Sono in possesso di circa 150 program 
mi per ZX Spectrum 16/48 Kbyte. Scri- 
vete ed inviate lista. Risposta assicura- 
ta. Massima serietà. Se richieste allego 
anche istruzioni e chiarimenti sul soft 
ware. Giovanni Florio - Via Contrada 
Belvedere - 70027 Palo del Colle (BA) - 
Tel. 080/627408 


Vendo ZX Spectrum acquistato da ur 
mese per passaggio a sistema superio 
re, imballo originale e garanzia in bian 
co a L. 490.000. Regalo 14 riviste con 
tanto software. Telefonare ore pasti. 
Ciro Oliviero - Via Panoramica, 172 - 
80056 Ercolano (NA) - Tel. 7396747 


Cambio più di 140 programmi per lo 
Spectrum 16/48 Kbyte tra questi: Al- 
chemist. Manic Miner, Android1, Atic 
Atac, Jet Pack, Jetman, FRED, Magaz- 
zino, Archivio, ecc. Se siete interessati 
scrivete a: Stefano Dalla Chiara - Via 
Piemonte, 9 - 30030 Chirignago (VE) - 
Tel. 915126 


Causa passaggio sistema vendo ZX 
Spectrum completo, 2 libri, riviste, 100 
programmi su cassetta tra giochi ed 
utility (The Hobbit, Football, Manager, 
Bilancio Familiare, ecc.) a L. 450.000 
trattabili. Marco Mutti - Via A. Mazzi, 
64 - 24100 Bergamo - Tel. 035/244520 


SUPERSINC® 5/85 - 81 


SUPERSINC Primi passi con il tuo Spectrum cod. AROC006 L. 16.200 


CEDOLA DI ORDINAZIONE - CASSETTE QL Super Basic 


da compilare e spedire in busta chiusa a (il Super Basic del QL) cod. BGRC017 L. 17.300 
J.soft — Viale Restelli, 5 - 20124 Milano - Tel. 6888228 


Spectrum graphics and sound 
(grafica e suono dello Spectrum) cod. BGRC016 L. 17.300 


Ordino i seguenti libri per un importo totale di L. 


come contributo fisso per spese di spedizione 


God: siii ri Cod. 


ed: siria Cod. 


& È È Se richiesta fattura: 
{.] Contanti allegati Cod. F. e P. Iva 


{ ] Ho spedito l'importo a mezzo vaglia postale 
{ ] Ho versato l'importo sul ccp n° 19445204 intestato a J.soft - Milano 


{] Pagherò in contrassegno al postino al ricevimento dei volumi (valido solo peri Peri residenti all’estero - pagamento anticipato (vaglia o versamento su ns. ccp) 
soci in Italia) 


RE salclclatccscnaccoaza nz 


SUPERSINE è bello, però... (ovvero suggerimenti, 
idee, critiche, richieste e tutto ciò che vi passa per 
la testa). 
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Perla sete di soft 


Il nuovo Lemon Il è ancora più potente: nuove soluzioni tecniche e il drive da 160K incorporato consentono a questa macchina 
prestazioni eccezionali. E possibile infatti utilizzare tutti i migliori 
programmi professionali: package di gestione, data base, foglio elettronico, word processing, grafica, archiviazione... 
Lemon Il è compatibile, ha un prezzo accessibile, garanzia e rete di assistenza tecnica. 
E l'occasione per avere subito un vero computer professionale. 


Organizzazione di vendita: 
Torino 011.337744 

Milano 02.4232437 
Bologna 051.223714 
Firenze 055.372281 

Roma 06.5420305/5423716 
Caserta 0823.460469 
Catania 095.416560 


LEMON Il 


il grande compatibile 


Prodotto e distribuito dalla Belton Electronics s.r.l. - Zona Industriale 62010 Montelupone (MC) - Italia - Tel. 0733/586423-24 Telex 600071 JENSPA | - Divisione informatica della Jen Elettronica s.r.l. 


SINCLAIR QL: 
AL VERTICE DELLA NUOVA GENERAZIONE 


Sinclair QL rivoluziona il mondo dei computer, perché 
combina le dimensioni di un home con la potenza e le 
capacità di un mini. 

QL è l'unico computer, nella sua fascia, ad impiegare 
il microprocessore a 32 bit, quando gli altri si 
fermano a 8 oppure 16. 

La sua portentosa memoria è di 128 KRAM 
espandibile a 640. 

I quattro programmi applicativi, 
già incorporati, 

sono immediatamente utilizzabili 
e superano, in qualità, il software 
dei microcomputer esistenti. 


similar 


Distribuzione esclusiva: GBC Divisione Rebit. 


Ha la possibilità di multitask e può essere inserito in 
reti di comunicazione. 

Grazie ai due microdrive e al software incorporati, 
Sinclair QL, nella sua confezione originale, è già 
pronto per l’uso: basta collegarlo ad un video. 

E pensare che tutta questa tecnologia pesa meno di 
due chili e trova spazio in una normale 24 ore. 

Un computer così non poteva che essere Sinclair. 


Tutti i prodotti Sinclair, 
distribuiti da GBC Divisione Rebit, 
sono corredati da regolare 
certificato di garanzia italiana. 


